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packname and username parameters added 
to the SES processor call. 
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1.0 INTRODUCTION 


1.0 INT3ODUCTZON 


SES is a NOS utility whose major function ts to tocate and 
process PROCEDURES so as to generate streams of CCL to the systen 
control statenent file. 


PROCEDURES are text records which contain CCL interspersed with 
diracstives to the SES processor itself. The SES directives can 
cause CCL to be generated according to specified conditions. 


S28 is invoked by an SES control statement» elther frem a 
terminal session or from a batch jJob.j The SES control statement 
specifies the name of the procedure to be processeds and optionally» 
paramaters for that proceduree SES locates the procedures processes 
Its and generates the appropriate CCL stream to the control 
statement ?ile. 


Tais document is Intended as a guide to those who wish to write 
procedures to be processed by SES. 
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2.0 EEATURES_QE_3E5 


This section provides an overview of the features and facilities 
available to the user of SES. The features fall into two related 
classes» the first class being the ways in which parameters may be 
specified on. the SES control statements and the second class teing 
the faatures provided by the SES processor. The two classes are 
relateds since in generals for each way that a parameter cen be 
written on the SES control statements there Is a corresponding SES 
directive or function avalleble to procass that particular aspect of 
the parameter. 


2o1 CONTROLS TATE MENT _EEATURES. 


This section tooks briefly at the way in which an SES ccntro! 
statement and parameters may be written. 


o Continuation Lines. SES procedure calls are not timited to 
one control statement line. Continuation lines may be inputs 
whether from a terminal or In batche The total length of a 
statamants Including continuation liness is timited to 200C 
characters. 


o Procedure parameters may be specified by keywords or 
positionallys or by a combination of both methods. 


o Parameters of a procedure may have multipie values, 

Oo Parameters of a procedure may be coded solely as ai keyword 
with no vatuess In which case the keyword nay be used to 
specify options. 

o A paremater keyword may have multiple synonyms. 

o Parameter values may be coded as arbitrary character stringse 

o The user may tIndicete on the SES controt statement thet a 
particular user's catslog Is to be searched when tocating a 
procedure. 

o Users may establish procedure tiorary search order and other 


default Information in a PROFILE» which SES accesses at call 
time. 
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2e2 PROCEDURE PROCESSING 


This section provides a brief look at the features availabte to 
the SES procedure writer. 


o Values and defaults established In a user's PROFILE msy be 
accessed. 


o The names of parameterss their possibile types» and the number 
of vyatues that may be codad for thems ara predefined within 
the procedure, 


o SES provides functions to test for the types number of valuess 
and axistence of a parameter. 


o SES provides a function to index along a multinpte velued 
parametere . 


o The procedure writer may dafine variables to hold vatues 
during procedure processing. 


o CCL statements may be generated conde ere nee ss or iteratively 
via IF and WHILE directives. 


o Expression evaluation and string nanipulation facilities. 
o Generation of unique strings for names and labels. 


o Text from within the body of a procedure may be ROUTted to any 
specifled file, 


9 Text may be INCLUDE'd Inte the body of the orocedure from eny 
specified files or from any specifled procedure of any 
specified piib jiibrary. 


o Local *“ifes may be tested for attributes» simitar to the FILE 
function provided by the operating system. 


o 6The aseers eavironnent at procedure call time can be restored 
at procedure end. 
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JUI_QE LHLS GUIDE 

Rather than supplying an aiphabetical tist of directives and 
functionss the features are going to be Introduced In related 
chunkss mostly Illustrated by examples. As far as possibles the 
examples given are taken from real live SES proceduress to evoid 
creating artificial examples. The general tayout of the guide Is tn 
this order.. 

o Basic SES concepts, processing and syntax. 

o Expression evaluator. 

o Functions. 

o SES directives. 

o Parameter definition and processing. 


o 6©FhAL Te system directives. 


o Various summaries in sppendices. 
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360 BASIC_SES_ PROCESSING 
This section is going to show the major aspects of how SES 
perforns its processing. Topics covered in this section are. 


0 procedure cali formats showing the basic format of an SES 
contro! statement. 


a) what a procedure looks like. 

0 The mechanism for substitution of parameters and names. 
o S&S directives within procedure files. 

o Profilas and the SEARCH directive. 


o Locating a procedurae Explains the search method that SES 
uses to locate a procedure. 


o Processing a proceduree Explains what happens to each tine of 
text In an SES procedure, 
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3e1 SES. PRICEDURE CALL FORMAT 
The basic form of an SES procedure calli is. 
SES eprocedure_name list of parameters 


where "procedure _name™ is the nama of the orocedure to be processed» 
and “list lof parameters" is the (optional) tist of parameters for 
the procedure. The list is separated from the procedure name by a 
comma or by space{s) or both. elements in the parameter list are 
separated from each other by commas or space(s) or »dbothe The 
parameter tist Is tarminated by an and of lines a periods or a 
semicolon. 


Parameters are generally written In the form of 
keyword*value 
this Is: only a part of the story howevers and later in the document 


we'll get to specific definitions of the manner in which parameters 
may be coded. 
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Zelei SES PROCEDURE LAYCUT 

The general tayout of an SES procedure {[s2 

PROCNANE where PROCNAME is the name of the procedures 

\ PARM 

\ PARA 

\ PARM there are zero to many of these PARM directives. 
They are used to define the exact format of the 
parameters in the list. The form of a PARM 
directive will be defined in a later section. 

\ PARMEND this indicates the end of the PARM directives» 


and is always neccessary even when ther? are no 
PARM directives. 


BODY OF PROCEDURE the procedure body contains CCL which gets 
written to the control statement files and ‘SES 
directives which are processed at procedure bulld 
time. 


\ blah blah any tine which starts with the directive 
characters which is a reverse siash {(N\) by 
defaults Is taken to be an SES directive. 


A procedure of name PROCNAME may be a local files or ai File In 
the currant user's catalogs or It may be a record in a PLIB. But» 
no matter where the procedure comes froms the first line of the 
procedure must be the name of the file or record in which the 
procedure resides» 
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302 JEL SYNTAX 


This section provides a short and Iinfornat Introduction to the 
syntax of the SES processor. A more formal and complate syntax 
definition is provided at the end of the document. 


The discussions on syntax use the characters € and }] to Indicate 
that an item is optional. 


3e2el DIRECTIVES 


To determine if a tine of a procedure is a directives the SES 
processor joes through the following steps? 


1. Any leading spaces on the tine are ignored. 


2e SES tlooks for a variable called DIRCHAR (for ORective 
CHARacter) In Its tables (we'til discuss varlables tater). If 
DIRCHAR Is undefineds or If DIRCHAR is defined but contains a 
valve other than aesingle character which Is a "visible 
dealiniter cheracter™" (spece is not considered a visible 
delimiter)s then SES will use the reverse stash (\) as the 
directive characters otherwise SES will use the character in 
DIRCHAR as the directive character. 


Ze If tha (now) first character of the line is equal te the 
directive characters then the line is assumed to be eaither a 


directive or an assignment statements and Is processed 
accordingly. 


Se2e2 VARIABLES 
Variables are one thru thirty-one characters in ITlengths must 


start with ai tetters and may contain only letterss digitss or the 
characters _» $$» a» or te 


3e2e3 NUMBERS 

SE3 only handles integerss there ar2 no realise Integers are 
represented Internally by 48 bit quantities. Thus Integers range 
between -2**47-1 and 2**47-1. 

Numbers are normally assumed to be decimals, but bases other thar 
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decimal may be represented by appending a base spacification to the 
string of digits. The base may be any base between 2 and 16» but 
generallys the useful bases are 2» 8» 10 and 16» and any others are 
sort of weird. For examples 


4975 is a decimal number 
377475(3) is an octal number 
9445(16) Is a hexadecimal number 


note that hexadecimal numbers (Cand In fact any base requiring use of 


the letters A thru F) must start with a decimal digit leven if it's 
zero)» to avold confusion with names. 


3e204 STRINGS 


Strings are arbitrary strings of characters enclosed In single 
quote markss for example: 


*jJust the place for a Snarks the Beliman cried.?* 


to rapresent a string quote inside a strings you must code it as two 
string quotes: 


*The time is Seven 0° "C tock® 


two juxtaposed string quotess that is» ""s represent a nulls or 
empty string. 


36205 BIOLEANS 


Strictly speakings there aren't really booteans In SES. Howevers 
SeS has the predefined variables TRUE» YES» FALSE and NO. The first 
two represent the value TRUE» and tte second two represent the vaiue 
FALSE. They are conformable with Integers» In that TRUE or YES are 
equal to on#®  {1)5 and FALSE and NO are equa! to zero (0). 
QOtherwises any nan zera value is assumed to be TRUEs and a zero 
value is assumed to be FALSE. 


3e2e5 FUNCTIONS 


SES provides many bdbullt in functions. A function reference 
follows the standard forms that is: 


60460270 02 


3-6 
CDC - SOFTWARE ENGINEERING SERVICES 

22 MAY 24 
SES Procedure Writer's Guide REV: 2 
3.0 BASIC SES PROCESSING | 
30206 FUNCTIONS 


function _name (list lof_arguments) 


where "function nane”® Is the name of the function to be referenceds 
and "list _of_iarguments*™ is the argument(s) to the function. 
Elaments of an argumant list are SOP AERESS from each other by commas 
or space(s) or bothe 


Bele? EXPRESSION EVALUATION 


SE3 can evaluate expressions containing mixed mode Integers 
strings boolean and function references. Imolicit typa conversion 
is performed as required. 


3e2e8 COMMENTS 


A comment is any arbitrary string of characters enclosed between 
double quote marks ("). The comment may not itself contain comment 
quotese Comments may appear anywhere that a space May appears end 
in fact Is syntactically equivalent to a space. 


Comments may not appear before the directive character of an SES 
directive lines nor after the continuation signal on lines which are 
being continued. 


30209 CONTINUATION LINES 


Any SES directive or call line may be continued by placing 26 
continuation signal (.2) at the end of the tine to be continued. A 
continuation signal is defined to be two or more contiguous perlodse 
The total tength of an SES call Tine may not excead 2009 characterss 
while the iength of a directive tine nay not exceed 256 characters. 
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3e20l10 SUBSTITUTION 


A major function of SES is to substitute parameters into 
procedures. In actual facts SES can substitute elements other than 
paramatarss and this tatter aspect is covared first. 


The basic substitution mechanisn when orocessing a tine of a 
procedure is this: 


1. SES tooks for a variable SUBCHAR (for SUBstitution CHARacter) 
in Its tables (we'til discuss variables later). If SUBCHAR Is 
undefineds or If SUBCHAR is defined but contains a value other 
than ae$singte charscter which Is a “vistbie delimiter 
character" (space is not considered a visible delimiter)s then 
SES wil! use the ampersand (§) character as the substitution 
characters otherwise SES will use the character In SUBCHAR as 
the substitution character. 


2-e If SES finds on a tines the substitution character followed by 
a name followed by the substitution characters then SES 
follows the procedure below: 


a) SES first searches for a parameter of the spacified 
names, and If such a parameter Is not founds then SE5 
searches for averiable of the specified nama. If the 
parameter or variable Is defineds then the value of the 
variabies or the value of the parameter is inserted 
into the output text at that points without the 
substitution characters. 


b) If SES finds neither a parameter of the specified names 
nor a variable of the specified names then the 
substitution characters are stripped off and the 
literal character string which comprises the name is 
inserted into the output text. 
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For examples supposing that the substitution character is & and 
that the name YIN is assoctated with the vatue YANG. 


: H ; 
logut i Outeut Explanation 
Be cee a 


REWINDCEY ING) | REWIND(C YANG) ? this exampte is stralghtforward. 2 
} The value YANG is simply 3 

; $ substituted for the name YIN. ; 

; H H 


a 2 9 

3 5 a 
REWINDCEMINE) $ REWINDC(MIN) ¢ stncea MIN wasn't defineds then | 
H $ the substitution characters are } 
; 
a 
3 


} simply removed. 


bp Oe ae we oe Oe hh OO on Oe we He 4 oe Oe oe 
oe we 
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303 PROFILES 


A PROFILE Is an Importants albeit optional, component of the SES 
system, Any user may choose to establish a PROFILE in their 
catalog. PROFILE follows the same rules as any SES procedures that 
iss the name of the file must be PROFILE» and the first tine of the 
profile must be the word PROFILE. From there ons the profiie mey 
contain just about any SES commande. The most important aspect of 
the oroflia is the SEARCH directives explained in the naxt section. 


Typicailys the types of things that aiuser may place in the 
profile would be 


o a conmand to set a variehbte called PASSWOR to the user's 
password. Procedures which optionally run as batch jobs can 
then get the user's password without having to be told It on 
the SES control statement. 


0 commands to esteblish defaults for tibrary names (for the 
source code and tibrary maltntenance procedures)s and cther 
data for various procedures. 

o SEARCH directives to establish a search order for procedures. 

It is possible for a user to have more than one PROFILEs and 

select which one to use by coding the PN or P parameter on the SES 
control statements for example. 

SES sPN=aiternate_profileeprocname tist_of_parameters 
allows the user to use the file “aiternate_profile™ as the PROFILE 
for the duration of that procedure call. <Alsos a user may use 
someone e@ise's profile by coding the PUN or PU parameters (for 
examp ies 

SESsPUN=profile_ownereprocname List of_parameters 


allows the user to access the profile belonging to “profile _owner™. 
Qf courses the PN and PUN paerametars may be used together. 
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Sedel SEARCH DIRECTIVE = ESTABLISH LIBRARY SEARCH ORDER 
The SEARCH directive allows a user to establishs within PROFILE» 
the names of tibraries to search when ftocating a procedures and elso 
the user names in whose catalogs those procedure tltbraries reside. 
The general form of SEARCH Is? 
\ SEARCH search specs search specesecere 
where "search spec” is in the Form? 
user _nane 
or 
{tibrary names library namecoeses user_nase) 
The first form indicates that the !lbrary name contained in the 
pradefined variable SESLNAM Is to ba searched for in the catatog of 
the user specified by “user name". The second form gives a list of 


library namess with the Iast Item In the List being the user name in 
whose catalog those libraries may be found. 
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364 LOCATING A_PROCEQURE 


SES performs its search for a given procedure according to well 
defined and consistent rules. Basically SES has three methods of 
specifying how a procedure Is to be located. SES has an Internal 
table which contains the following data? 


librery.name } user name 
3 


3 

8 a 1 
8 a 3 
} bibrary name { username } 
a 2 | 
} etc. ; H 
H H H 
H etc. H 3 
H } H 
; etce ; H 
; H ; 
+ 


Glven that the table may be set up by one of three different 
methods which are explained In mora datail in the sections 
followings the procedure that SES follows to locate a orocedure is! 


le If there ts a tocal file of the “procedure _name™»s whose first 
fine is “procedure _name"s»s then SES uses that file as the 
procedure. 


Ze $28 searches the catalog of the user whose user name appears 
as the first entry in the tables for a file of name 
"“orocedure_name™,s whose first tine is “procedure name". If 
such a file is founds then SES uses that file as the 
procedures 

3./ For gach entry In the search tables SES searches for a tibrary 

of name "library name" in the catalog of the corresponding 

"user _name™,s and searches that library (which gust have ea 

directory) for a TEXT record of name “procedure_name". If SES 

aventualiy finds such a records then SES uses that record as 
the proceduree 


onan, 


4. If the search is unsuccessfuls then SES issues an error 
message 


procedure nage NOT FOUND 


The next three sections provide a more detailed explanation of 
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the methods by which SES has Its search table set up. The methods 
are basically the defaults the user name specified on the SES 
contro} statements and the SEARCH directive. 


JZe%el DEFAULT DRDER OF SEARCH 


When SES Is calleds it sets up the following data in its search 
tabla: 


$e ee ee een fo ee ee me oo } 
+: S&SSESLNAME $ username $ 
43 4 a 
3 % 8 
+ G&SESLNAME& $ G&SESUNAME } 
+ 


This table is the normal default for SES. “user name" is the 
user name of the currently logged in usere 


WSESLNAM® Is a predefined variabla which contains the name of the 
SES procedure Library NAMe. “"SESUNAM™ is a predefined variable 
which contains the SES User NAMe. There will be a more detaliied 
section on predefined variables tater In the document. 


3e4%e2 SEARCH SPECIFIED GN CONTROL STATEMENT 


When the user types the SES contro! statements he may specify via 
the UN or J parameter of the SES programs which user's catalog to 
fook in for the procedure specified by the call. For example: 


SES» UNeuser_nameeprocedure name list_of_paerameters 


specifies that the procedure “procedure name" is to be searched for 
aoly in the catalog of the user "user name” (if the procedure Is not 
already local). In this case SES modifies its search table to 
contain only the following data? 


; GSESLNAME : username | 


meu owe wes ae ofp en we oo ene ee an oe one on oe 
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where "SESLNAM® contains the SES Library NAMe as befores and 
“user name” is the user name specified on the SES control statement. 
It is also possible to tell SES» via the LISPFN or LPFN parameters 
the name of the ttlbrary to be searched for the procedure. For 
axamp lesz 


SES sLPFN=lib_name.procedure name list lof_parameters 


specifies that the procedure “procedure. name” is to be searched for 
goly in the tibrary “lib name". In this case SES modifies its 
search table to reflect the following data: 


: Tib.name ;} user name | 


where “user name" is the user nama of the current users and 
“Ilb-name™ Is the tibrary name specified on the SES control 
statement. Jf courses the UN and LIBPFN parameters may be used 
together. 


3e%e3 SEARCH ORDER SPECIFIED VIA SEARCH DIRECTIVES 
The third method of spacifying the order In which to took for the 
procedure Is via SEARCH directives in the user*s PRIFILE. For 
examples supposing that the user's PROFILE contains the fottowing 
SEARCH directives 
\ SEARCH (CHOLMLIBsJIMLIBsHG74)5 AM74s JFO3» (ANDYLI85SED73) 


in this case SES would modify its search table to took tike this: 


HOLMLIB $ HG74 i 
JIALIB 

ESESULNAMES 
ESESLNAME 


ANDYLIB £073 


BH SCO 2 24 2a 6H 2S 
_ » 
= 
«J 
& 


> we 64 ce oe co wo © ce we 
ae 


: 
; 
i 
; 
; 
i 
+ 


60460270 G2 


3-14 
COC - SOFTWARE ENGINEERING SERVICES 
. 22 MAY B84 
SES Procedure Writer's Guide REV: 2 
3.20 BASIC SES PROCESSING 
304.3 SEARCH ORDER SPECIFIED VIA SEARCH DIRECTIVES 


ED ES AOE AT OD ND AD AES ED AED SD AOE ROD -OR A TED ND GN UR REED OED ED ON AE DD HE A ES  ENY  G D HED REED AND WD Ey WES SN A ES RD e ClaD ED Ae A a GE AR Eee A oe OD aD ee OD Ge en AE A ce en ES UD RD 


Nota that SEARCH directives are ignored if the UN or LIBPFN 
parameters were specified on the SES control statement. 
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365 PROCESSING A PROCEDURE 


Now assuming that SES is able to locate the required procedures 
then the procedure is processeds at least In principies on a one 
passs line by line basis--we say “in principie"s since In fact 
becausa of WHILE (looping) directivess a given line may be processed 
many times. Also each line may be scanned twice. Leaving ail thet 
aside for the noncas, the processing for each tine of the procedure 
goes like this: 


le The line Is scanned by the substitution processor. Any 
substitutable alements are processed at this stages and the 
replacement text insertad into the line at that point. This 
process continues until the whole line Is scanned. 


Ze The tine is then examined to see if it is an SES directive 
(or assignment statement)» and if so it is processed 
accordingly. 


3. If the !ine Is not an SES directives then that tine is written 
to the output streams, whatever that heppens to be at the timee 
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4.0 EXPRESILTON EVALUATION 


Althoughs as we sald befores the principal function of SES is to 
substitute parameters Intec proceduress the expression evaluater of 
SES is a suffictentiy important aspect of processing SES procedures 
that it and its related topics are covered firsts before we ever gat 
to explaining parameters and parameter substitution. By starting 
with the expression evalustors you'tt!l find it easier to understand 
Parameters when we get to them. 


4e1 ASSIGNMENT Of EXPRESSIONS _IO_VA4SIABLES 


Within the body of an SES procedure it {is possible to have 
variables. Varlables are used for many purposess such as cortrol 
yverlablas in WHILE loops» bullding character stringss etcs etc. 


If you assign a vatue to a variable which was previously 
undefineds then SES defines the variable for yous and initializes it 
to the value of the expression to the right of the equal sign. If 
the variable was already defineds then its new value becomes the 
value of the assignment expression. 


Varlables within SES may be of typa MAMEs INTEGER» STRINGs or 
BOOLEAN.. When a variable is inttiallzeds it takes the type of the 
initialization expression. Uoon subsequent assignmant to the 
varlables tt takes the type of the exorassion to the right of the 
equal siaqn. For examples here are four variables being declared! 


\ stringy = "MOZZARELLA CHEESE® 

\ number = 547(8) 

\ ftogical = TRUE 

\ aname = fred 

In the axamplas tha first variable is of type STRing3 the second 

is of type NUMber (there is no type REAL)D$ the third Is of tyne 
BOOLEAN$ and the fourth is of type NAMe (it is assumed that fred was 
not previously defined as a variable). Generally speakings the 


expression evaluator performs Implicit type conversions so that 
variables of different types may be mixed within an expression. 
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4o2 QRERATORS IN EXPRESSLON_EVALUATION 


Before we go further into expression evaluations we'li shew the 
operators that may be used in expressions. They fall into the 
classes of arithmetics strings relational and togical operators. 
The table dbatow also indicates the relative priority of the 
Operatorse 


i Operator i Prece- { Operator } Comments ; 
$ Class i dence i ' ; 


{ Arithmetic i 1 *k Exponentiation 


med 


2 Multiply 
Divida 


Modulo or Ramainder 


oe 20 ef Se GH oe we 


3 Add or MNonedic Plus 


Subtract or Monadic Minus } 


ene ee ee ee eo ee | 
a 


mr 
~ 
oe oe oe ae 82 woe we we 


Ce oe wn wm we FO ewe 
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a 
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i String H 4 ; ++ + String Concatenation H 
+ 
a 
8 
a 
a 
E 
a 
a 
a 
] 
5 
% 
3 
9 


Cd 


5 = 
{= 
<> 
> 


>= 


Equal To 

Not Equal To 

Not Equal To 

Greater Than 

Greater Than or Equai To 

< Less Than 

<3 Less Than or Equal To 

man 2: ape eo ee ame OD AD whe eae ann wae le A A ON VEN CAS ND AND AD A Oe eee ee ee 


6 NOT Logical NOT or Negation 


Relational 
9 


te ee 


ee Oe ae te wom HE 


$ Logical 


oR $ Logical OR 
H XOR } Logical Exclusive OR 


B 


ee Oe BH ON 4G we hb OO we OM He OH we &: 


H ; 
; ; 

7 ; AND { Logical AND 
H ; 


+ we ©s on oe we ce OF He we He Oe He ne 


oe on 26 we oe 


Notas? 


rt) Operators at the same precedence tevel are processed from 
feft to right. 


re) The right operand of the exnonentiation operator must be 
greater than or equal to zeroe 
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a) The right operand of the division and modulo operators must 
not ba zero. 


Fe) Processing of relational operators is as Follows? 
- If both operends of a refational operator can be 
converted to integerss they are so converted and then 


compar edj otherwise both operands are converted to 
strings (if necessary) and then compared. 
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403 EXAMPLES OF ASSIGNMENT STATEMENTS 


In this section we're going to look at an example of the use of 
the axpreassion evaluators showing how substitution of names works in 
conjunction with assignment. This example is from the SES MATH 
procedures which acts es a quick and dirty desk calculatore At the 
start of the MATH procedures the following chunk of code may be 
found, 


\ curnamq = *VALUE? eS 2a. * 
\ &curnamg& = 0 os Se, ve 
e 
e 
\ SG "&curnanmq& = * #4 &curnamagé mg 
etce 
etc. 
etc. 


Note how we made use of comment quotes In the example in order to 
number the tines of interest to the discussione Now the way this 
works is that tine 1 sets a variable “curnamq" to the charecter 
string "VALUE*. When line 2 is processeds the substitutor looks for 
something called "curnamq"s and finds the string 'VALUE's so thet by 
the time the assignment statement Is processeds thea tine will 
actually read 


\ VALUE = 6 


so the variable VALUE gets Initiallzed to zero. Now line 3 is 
scanned by the substitutors and when substitution is finisheds the 
fine will took like 


\ MSG "VALUE = * +# VALUE 


now the expression evaluator is called tnto piay to process the 
argument to the MSG directive. MSG wants its final argument in the 
form of a stringe The expression evaluator finds that the first 
part of the expression is indeed a string. Then it finds that the 
second part of the expression calts for a string concatenation of 
whatever is In the varfaeble VALUE. Name flookup finds thet the 
variable contains the value 0. The expression evaluator converts 
the 9 to a string and concatenates it to the previous string in the 
expresstone Finally the MSG directive outputs to the user a massage 
that says 


VALUE = © 
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300 EUNCTIONS 


SES thas a number of functions for use by the expression 
evaluator. These functions are explained in detail in the following 
sections. First there's a brief overview of the functions. 


UNIQUE generates unique seven character strings in 
the form of labels or filenames. 

Attribute Testing There are functions that test whether a 
variable is a name» numbers string or 
operator >» or whether an arithwetic 


expression Is ftegal. 


String Handling string handting functions are provided by 
SUBSTR»s which returns a substring of a 
larger strings STRLEN» which returns the 
length of a strings GENSTR»s which restores e 
parsed string to Its original formats and 
functions to raise or tower the case of 
alphabetic characters. 


Number Conversion the functions OCTs DEC and HEX perfore 
integer to string conversions 

DATEs CLOCK and TIME these functions raturns the date and time in 
various formats as specified by thelr 
arguments. 

YVALEXPR this function can be used to VALidate and/or 


eVALuate an EXPRession contained within $a 
string variable. 


TOKEN this function reads the next valid SES token 
(syntactic unit) from a string vartable. 
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Sel UNIQUE =_ GENERATE UNIQUE NAMES _O8 LABELS 


This function is used by most of the SES procedures to generate 
unique nanes for intermediate scratch filess unique names for 
programs Invoked by the SES proceduress and unique labels (In those 
rare cases where jlabeis are needed). They are explained in detail 
below. 


UNIQUE( NAME) returns as a value a seven character alphanumeric 
strings starting with the letters ZQ.. The name 
is guaranteed to be different from the name of 
any file currently assigned to the running job 
from which this SES procedure Is being called. 


UNIQUE( LABEL) returns as a value a seven character alphanumeric 
string starting with the characters 90. 


The YNIQUE function repeats about every seventeen hours. 


As an example of how this Is useds thea foilowing is a short 
axtract from the SES COPYACR procedure. 


\ copyacr = UNIQUE(NAME) 
\ library = UNIQUE( NAME) 
» 

2 


EXTRACT (Scopyacr&=COP YACR/T=ASS sLFEN=€l ibrar y&sL=PROGL IB sUN=6 SESUNAMG) 
&copy acr&( HERE» THERE) 
| 

® 


The two variables at the top ara Initialized to unique nemes» so 
that when those names are useds they will not conflict with any file 
that the user may have assigned to the Jobe 


It Is good practice to use uniqua names for files and programs 


wherever possibles because then the user does not have to remember 
which procedures use which filenamese 
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5e2 TESTING ATIRIBUTES OF EXPRESSIONS 


The functions described below are mainly used to test the type of 
an expression. NAMs NUM» and STR return true if the argument is of 
type NAMes NUMber or STRings respectively. DEF returns true if Its 
argument is DEFineds DEFF returns true If Its argument Is a DEFined 
Function or a symbolic operator. OPR returns true if its argument 
is an OPeRator. VALEXPR checks and computes a VALId EXPRession. 


5e2el NAM = TEST FOR NAME 


The NAM function returns true if its argument is a NAMe. The 
general form of NAM is: 


NAM (expression) 


if “expression” avatuates to something that can be sonverted to a 
panes then the NAM function returns TRUE» otherwise It returns 
FALSE. For axempie3 


\ test = NAM (FRED) 
\ test = NAM (*ABC® +4 "DEF *) 
\ test = NAM (*JUNK*® #¢ TRUE) 


ail return the value TRUE. In the first examples FRED is definitely 
a@ names in the second examples the result of concatenating the two 
strings results In a value which can ba converted to a names and i=in 
the third exampies, the result of the expression is the string 
'JUNK1*' > which can also be converted to @namee So In each cases 
the value of variable "test" Is TRUE. Howevers the tests! 


\ test = NAM (12345) 
\ test = NAN (TRUE) 
\% test = NAM (*123ABC*) 


all fails since 12345 is not a nama but a numbers TRUE converts to 


the value ls which is also not a names and '"123A8C* Is a string 
which cannot be converted to a valid name. 
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5e2e2 NUM = TEST FOR NUMBER 


The NUM function returns true if its argument is a NUMber,. The 
general form of NUM iss ; 


NUM (expressian) 


if “expression® evaluates to something that can bse canvarcted to a 
pupbercs then the NUM function returns TRUEs otherwise It returns 
FALSE. For axamples 


\ test = NUM (497500) 
\N test = NUM (377 ++ *(8)%) 
\ test = NUM (OABC #4 TRUE ++ *(16)") 


all raturn the vatue TRUE. In the first axamples, 497560 is 
definitely a numbers in the second examples the result of 
concatenating the two strings resuits in a vatue which can be 
converted to a numbers and in the third examples the rasult of the 
expression is the string '0ABC1(16)'"s which can also be converted to 
anumber. So In each cases the vaiue of variable "test" is TRUE. 
Howevers the tests! 


\ test = NUM (FILENAM) 
\ test = NUM ("Haddocks Eyes!) 


both falls since FILENAM is not a number but a name and the 


character string tHaddocks Eyes* cannot be converted to avalid 
number. 


Se2e03 STR = TEST FOR STRING 


The STR function returns true if its argument Is a STRing. The 
general form of STR Is3 


STR (expression) 
if "expression" evaluates to something that san be sonverted to a 
striogs then the STR function returns TRUEs otherwise it returns 
FALSE. for exampies 
\ test = STR (THROCKS) 


\ test = STR (€735725(8)) 
\ test = STR (*Nurdie yer Cordwangier *) 


66460270 02 


5-5 
COC = SOFTWARE ENGINEERING SERVICES 
22 MAY 34 
SES Procedure Writer's Guide REV: 2 
5.0 FUNCTIONS 
5e2e3 STR ~- TEST FOR STRING 


all return the vajue TRUE» since any of those thingss namess numbers 
and strings can indeed be converted to a stringe In fact it looks 
as If you can convert anything at all to a strings and if this is 
the cases what's the use of the STR function? Well as you've 
probably guesseds tife's not as simple as al! thats and there Is In 
fact ona thing that cannot be converted to a strings and that is an 
aultted value. wWatil talk about this a bit more when we describe 
parameters later In the guide. 


5e2e% DEF = TEST FOR DEFINED VARIABLE 
DEF stands for DEFineds and its alm In life is to return TRUE If 
the name specified as its argument is deined as__a__variablee The 
general form of DEF Is 
DEF(name) 


where "name" is the name of the thing that you want to know about. 
The “name” argumant to DEF may not be an expressions only a namee 


Note: that while SES is tn operation a vast quantity of variables 
get defineds other than those that the procedure writer may define. 


The tist of oredefined variables Is given at the and of this 
document. 


5.205 DEFF = TEST FOR DEFINED FUNCTION OR GPERATOR 
DEFF stands for DEFined Functions and it returns e true vaiue if 
the name given as its argument is any of the SES function names or 
mnemonic operators. The gengral form of DEFF is? 
DEFF (nage) 


where "nane”® is the function or operator name that you want to test 
fore The argument to DEFF may not be an expressions only a name. 
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50205 DPR = TEST FOR JPERATOR 


OPR tests for its argument to be an OPeRator or delimiter. The 
general form of OPR Is3 


OPR( string expression) 


OPR reads the first token from the string given by 
"string_exprasstion"s ands if the token Is a valid SES tokens then 
BPR returns TRUE If the token is an operator or a delimiter other 
than an operator. <A Vist of the valid SES tokans is given in the 
appendix on SES syntax. 
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Sete? VALEXPR = CHECK AND COMPUTE EXPRESSION 


The purpose of YALEXPR Is twofold. Firstiy it ts intended to 
VALidate an EXPRessions to see if it gan ba evaluated» and secondly» 
if tha expression is computables then VALEXPR eVALuates the 
EXPRess lone The raison d'etre of VALEXPR is that It is possibie te 
read data from a fiie Into a string variables and then evaluate that 
string as an expression. The general format of VALEXPR is3 


VALEXPR (result variables input string variable) 


where "resultuvariable™ is the name of a varlabie to receive the 
result of the exprassion specified by the string in the variable of 
nane “input string var lable”. VALEXPR returns a value which is 
either the null strings which indicates that the expression was 
valid» in which case the result of the expression Is In 
“resultuvarlable™, or else the function value is a cheracter string 
which is the SES error message indicating what was wrong with the 
expressjone. 


As an example of VALEXPR»s wet!l! show another extract from the SES 
MATH procedure, The relevant pieces of the procedure are given 
heres with the interesting tine numbers In commentse 


\N ACCEPT INTO='*stringq*t>»PROMPT="Ecurnamq&=*++icurnamgq& "= 1 =* 
2 
e 


» 
\ tokstsa = VALEXPR (resultqs stringa) "2 * 
\ IF tokstsq /= ** THEN o 3 * 
\ MSG tokstsq 7. 4 * 
atce 
etc. 
etce 


Line 1 reads a string from the user Into the string variable 
"stringa". Further down In the procedures after a tot of other belt 
and braces checkings the VALEXPR call at tine 2 places the result of 
the expression evaluation in "resultq"® and returns as a function 
vaiue a character string which is checked at tine 3 to see if It's 
the null stringe If it Usntts then the string in “"tokstsaq" 
represents an error message which Is output to the user at line 4- 
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503 JIRING HANDLING 

The functions described below allow you to massage strings. The 
functions described are STRLENs to find the length of a strings 
SUBSTRs»s to axtract a part of ai strings GENSTRs to regenerate a 


strings and GENUPR and GENLOWR to raise or tower the case of 
alphabetic characters in a stringe 


50301 STRLEN = DETERMINE LENGTH OF STRING 


STRLEN stands for STRIng LENgth» and It returns as a function 
values the length of Its argument. The general form of STRLEN is 


STRLEN (string expression) 


whare "string lexpression" is the character string of which you want 
to find the tength. For examples 


\ game = "DWILE FLONKING® 


® 
2 
\ size = STRLEN (game ++ * AND NURDLING®) 
the STRLEN function call has as its argument a string expression 
which should result in a string having the value 
"DWILE FLONKING AND NURDLING® 


and after evaluation Is completes the varlable "size™ should contain 
the value 27. 
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5e3e2 SUBSTR = EXTRACT SUBSTRING FROM CHARACTER STRING 


SUBSTRs for SUB STRings returns a part of a string from a string 
variablae The general format of SUBSTR Is:3 


SUBSTR(string_exps integer_exps integer_exp) 


where “exo™ stands for “expresslon"™,. The first ocarameter of SUBSTR 
is the string from which you wish to extract a substring. The 
second parameter is the character number (starting from one) at 
which the substring is to starts and the third parameter Is the 
number of sharacters to be extracted from the strings. For example, 


\ this = "MONEY FOR OLD ROPE® 


\ other = SUBSTR(thiss ll» 8) 


After the substring function has been evatuateds the vatue of 
variable "“other”® Is "OLD ROPE, and STRLEN¢(other) returns the vatue 
Bs 


If you omit the third parameter from the SUBSTR functions then it 
returns one character from the position dasignated by the second 
paraneter.s | | 


If you omit the second gnd third oparameterss then tha SU8STR 
function eraturns the antircre stringe This doesn't seem to be a Iot 
of uses and it's a whole lot quickar to just assign the string to 
another one. 


It is gat possible to omit the second parameter and code the 
third. If you do such an antisocial things youtil get the error 
message EXPECTING NUMBER. 


If the starting index perameter is given as tass than ones it is 
{internatty) set to one3 or If the starting index Is given as 
greater than the length of the strings the starting index is 
{internally) set to the farger of the ftength of the string or one. 
Tha default starting index Is one. 


If the tength is given as iess than zeros it is (internatly) set 
to zero; or if the length Is given as greater than the maximum (86)>5 
it is (Ctntarnealiy) set to the maximun. The default length ts the 
fength of the original string. 


Once the starting index and length have been determineds the 
requested number of characters tis returned as the function value 
(padding on the right with spaces if neccessary). 
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50303 GENSTR =~ REGENERATE A STRING 


The GENSTR Function Is used to restore a stringe When ae string 
valua is coded for a parameter or in a string assignments the string 
is initially enclosed in single quote marks» and a single quote mark 
within the string Is represented by a pair of quotese For examples 


\ time = "Thirteen 0° 'Clock!® 


wil’ set tha variable time to the string shown. When SES processes 
thiss the outer quotes are ramoveds and pairs of quotes replaced by 
single onease Howevers if this string was to ba passed on to the 
call statement of another SES procedures then it must be restored to 
its original forms so that aventually SES can crunch it again. So 
the function GENSTR»s for GENerate STRing is used. The general form 
of GENSTR Is 


SGENSTR{string_ expression) 
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5e30% GENUPR = RAISE CASE OF ALPHABETICS 


GENUPR Is used to raise the case of alphabatic characters in 4a 
string variabte. The format of the GENUPR function is 


GENUPR (string expression) 


where “string expression" is the string you want to process. An 
example of GENUPR [Is shown here in this extract from the SES system 
library procedure MATH. The procedure reads a string from the input 
file into a string variable “"“stingg" 


\ IF GENUPR(stringa) = "END* OR GENUPRIstringq) = *BYE* THEN 
\ STopP 
etc. 

etce 


the MATH procedure allows you to typa END or BYE to exit from the 
procedures and that Is what Is being tested for in the example 
above. Since the user may be logged in in ASCII modes it's possible 
for the Input to be In a mixture of upper and flower cases so we use 
GENUPR to raise the case of the alphabetic characters, 


50305 GENLOWR - LOWER CASE OF ALPHABETICS 


GENLOWR Is used to fower the case of alphabstic characters in a 
string varlable. The format of the GENLOWR function Is 


GENLOWR (string expression) 


where “string expression" Is the string you want to process. 
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5e% CHARACTER HANDLING EUNCTIONS 

The functions tn this category can ba used to maninulate aASCIY 
characters which do not have aoegraphic representation, The 
functions are CHARREP which return the character represented by its 
integer argument; and INTREP which returns the integer 
representation of Its character argumant. 
5e4el CHARREP =- CHARACTER REPRESENTATION 


This function returns as its values the ASCII character 
corresponding to its argument. The general form of CHARREP is: 


CHARREP (integer_expression) 
whare “integer expression" must evaluate to an Integer between © 
(zero) and 255. For exampiet: CHARREP(15(8)) is the ASCII charecter 
for “carriage return". 

If the *integer expression" has a vaiue of 1285 It will be 
transtated to a colon. If the value is between 129 and 2555 and the 
value of C4HARREP with this argument Is written to a Files It will be 
transiated to an asterisk. 
5e4.2 INTREP = INTEGER REPRESENTAION OF CHARACTERS 

This function will return as its values the integer 
representation of its character argument. The general form of 
INTREP ist 

INTREP (string_expressicn) 


where STRLEN(string_expression) must be equal to 1 (lone). For 
example: 


INTREP (*2*) 
has the value 50 or 62(8) or 32(16)3 and 
INTREP (CHARREP(10)) 


has the vatue 10 (teee the Integer representation of the ASCII line 
feed character. 
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505 INTEGES_EXPRESSION_ID_SIRING CONVERS TON 

The functions described below are for converting intesers to 
stringse The functions are O2°0Ts DEC and HEXs which convert integers 
to their OCTals DECIimal and HEXadecimnal! representations 


respectivelye None of the functions append any base designators s 
that's up to you and your particular application. 


565.1 OCT ~ INTEGER TO OCTAL STRING CONVERSION 


This function converts an Integer to its 0CTal string 
reoresentetione The form of the function Is! 


OCT( integer_expression) 


For examotes if the variable “titus” has the value 795s then the 
assignmant statement 


\ groan = OCT (titus + 4) 


results in the variable "groan" heing set to the string "1437's this 
being the octal representation of the decinalt Integer 799. 


Be5e2 DEC = INTEGER TO DECIMAL STRING CONVERSION 


This function converts an integer to its OD&Cimal string 
reprasentetion. The form of the function is? 


DECC integer_expression) 


For examples If the variable “mortica”™ has the vatue 497s then 
the assignnent statement 


\ tenon = DEC {mortice + 29) 


results in the variable “tenon” being set to the string *526°, 


50503 HEX - INTEGER TO HEXADECIMAL STRING CONVERSION 


This function converts an integer to its HEXadecima!l string 
representation. The form of the function iss 


HEX( integer expression) 
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For examples if the variable “easter” has the value 10138» #£xthen 
the assignmant stetemant 


\ bunny = HEX (easter + 1311) 


results in the varlabia “bunny” being set to the string *2089%s this 
being the hexadecimal representation of thea dacinal integer 11449. 


The HEX function always guarantees that there is a dacimal digit 
at the start of the character strings since the syntax of 
hexadecimal numbers within SES requires that they start with a 
decimal digit. If the first charactar of the resultant string is 
not a decimal digits then SES will place a 0 (zero) at the start of 
the strings 
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5306 DATE2 CLOCK AND _TIME_EUNCTIONS 
These functions return character strings as valuese DATE returns 
the current date in a number of formats determined by its argument» 


CLOCK returns the time of day in various formats» and TIME returns 
information about job and system tine. 


5e60el DATE =~ CURRENT DATE FUNCTION 


DATE returns the currant date in any one of a variety of formats. 
The form of the DATE function call is: 


DATE( format) 
where “fornat”™ may ba specified in one of these ways? 


YMD returns the date in the forn 76709708 (AD 19755 month of 
Septembers day 8) 


DAY returns the date in the form 08/69/76» the reverse of the 
way just above. 


MDY returns the data In the form 09/08/76 (Amertcan style <- 
month first). 


DMONY returns the date in the form 8 SEP 76 
MONDY raturns the date In the form SEP 85 1976 


JULIAN raturns the Julian dates 75252 for September 8, 
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5 e602 CLOCK = TIME OF DAY FUNCTION 


The CLOCK function returns the times so that it Is possible to 
get NOS to give you the time of day. The general form of CLOCK Is 


CLOCK( format) 
where “"fornat™ is one of the following. 
HMS raturns Hourss Minutes and Secondss In the form 16240319. 


AMPM returns the above time in the form 4240 PM 
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De6e3 TIME — SYSTEM AND JOB TIME FUNCTION 


The TIME function returns Information about the system time. The 
general form of TIME is: 


TIME (format) 
where the "format” parameter is one of the following. 
SYS alepsad time in seconds since deadstart. 
SYSMS elapsed time in nilliseconds since deadstart. 


J0a processing time In seconds since the start of this job or 
tarninal session 


JOBMS processing time in milliseconds since the start of this Job 
or tarminal sessione 
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De? TOKEN. =_READ SES_ TOKEN _ ERO A_STRING 


TOKEN makes the internal JTexical scanner of the SES processor 
available to the srocedure writer. TOKEN reads the naxt SES token 
(syntactic unit) from a string variable. The calling format of 
TOKEN Js? 


TOKEN( source strings token string) 


TOKEN reads the next available SES token from the variable 
“source _string™,s and places that token into the var lable 
“token -string™. TOKEN returns as a value one of the following: 


o If the token read from the string Is a valid SES tokens TOKEN 
returns anull (empty) string to Indicate that all is well. 
Note that in this cases the token is deleted from 
“source string"»s so that you can place calls on TOKEN Into a 
loops and get successive tokens from the source strings 


o If the next token In the string Is not a valid SES tokens 


TOKEN returns as a value a character string consisting of an 
error nessage indicating what Is wrong with the token. 
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3e3 EXAMPLE.=_TIME2 TOKEN. AND_EXPRESSION EVALUATOR 


The example below is taken from an old version of the SES TIME 
procedures TIME does not give you the time to the exact second,» 
rather it gives you the time in words to the nearest five minutes. 
For example if you type SESeTIMEs and the time was 113172435 SES 
would output the time in the form 


* QUARTER PAST ELEVEN 


Part of the procedure to accomplish this is! 


\ seectO = *' offcLocK? 

\ sectl = "FIVE PAST® 

\ sect2 2 "TEN PAST® 

\ seect3 = "QUARTER PAST!® 
\ sect4 «= "TWENTY PAST® 
\ sect5 = "TWENTY FIVE PAST? 
\ sect6 = "HALF PAST* 

\ sect? = "TWENTY FIVE TO® 
\ sact8 = "TWENTY TO? © 
\ sect9 = "QUARTER TO* 

\ sectlO = 'TEN TO? 

\ sectil = *FIVE TO 

\ hl = * ONES 

\ h2 = * Twoe 

\ h3 = © THREE? 

\ he = * FOUR? 

\ h5 = * FIVE? 

¥ hd = * SIX? 

\ h7? = * SEVEN? 

\ h6® = * EIGHT? 

\ h9 = * NINE? 

\ hl0O = * TEN® 

\ hill «= * ELEVEN? 

\ hl12 = * TWELVE * 


\ tiktok = CLOCKCAMPM? ne i 
\ junk zs TOKENC(tiktoks hours) | “2s 
\ minutes = SUBSTR(tIktoks 2s 2) *- 3 * 
\ hours = (hours4((33<=minutes) AND (minutes<259)))//12 “ 4 * 
\ hours = "h*#+hours+( hours = 0)*12 -. 3. e 
\ sector = (minutes/5+(ainutes//5>2))7/12 » 6 *® 
\ sectnam = *sect*4#+"*& sectoré* * {[. 9% 


6046627C 02 


5-20 
COC - SOFTWARE ENGINEERING SERVICES 
22 MAY 84 
$€é5 Procedure Writer's Guide REV: 2 
5.0 FUNCTIONS 
5.8 EXAMPLE =- TIME» TOKEN AND EXPRESSION EVALUATOR 


This simple titties procedure Ililustrates some of the more 
esoteric uses of the expression evaluator. The numbers that appear 
in comment quotes are for reference in the discussion that follows. 


-—— The assignment statements at the beginning are Just 
initializing a bunch of strings which form parts of the 
eventual outpute 


jine 1 calls the CLOCK function «hich returns the timee Let us 
suppose that the time Is 4329 pm. The variable "tiktok” will 
contain the string "4:20 PM*, 


line 2 calls the TOKEN function which sets the vatiue 4 into the 
variable "hours", The result of TOKEN is being placed in the 
variable * Junk", because that's what It Is in this 
application. 


fine 3 uses SUBSTR to get the "minutes" field out of “tiktok*",. We 
can't use TOKEN to get rid of the colon because colon is not 
avalid SES token. So we usa SUBSTR to get the sacond and 
third characters of the string and piace that in the variable 
“"ninutes", 


line 4 Is Incrementing the “hours” counter if "minutes" lies 
anywhere between 33 and 59 ainutes past the hour. The 
boolean expression ((33<=minutes) AND (minutes<=59)) will 
evaluate to either TRUE or FALSEs which Is convertible to 1 
or 0. Then ve nest en the whole expression modulo 12 to 
"hours", 


line 5 is setting "hours™ to one of the “hxx" varlables defined at 
the start. The expression has to generate the string ‘'H1i2° 
if the vatue of "“hours"s set in Jine 4s turned out zero 
because of the modulo operator. 


tine 6 computes the "sector™s that iss the five minute slot on the 
face of the dial. The expression will set the sector to 
"ninutes"/5. 3ut the expression aiso says that {ff It's 
3949596 or 7 minutes past the hours then we'll set it to five 
past the hour 


fine 7 bullds a name “sectxx". The names "hxx” and “sectxx™ can be 
accessed by substituting. For axamples if the time Is 
4343 pms then “hours” willl eventuatiy contain the string 
9H5%, and “sectnam" will contain the string 'SECT9*. Then 
the substitution adhours& wil! give the string ‘'‘FIVE's, and 
&sectnam& will give the string ‘QUARTER TO!, 
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6.0 SES_DIRECTIVES 


In this section we'll! look at all the SES directives that ere not 
directiy concerned with processing of parameters from the control 
statement. <Again we'll! provide a brief summary of the avaitablie 
commands» and go Into more detali tater one The commands we're 
going to dissuss In this section are. 


Conditional Processing The IF-ORIF-CLSE-IFEND commands provide 
a means to process the procedure 
conditionally. 


Iterative Processing WHILE@“WHILEND provide a means of 
repeating a group of stetements while 
some condition remains true. 


Other Contro! Statements CYCLE provides the means to go to the 
beginning of a WHILE loop. EXIT 
terminates its iImmedtatety enclosing 
structures STOP terminates procedure 
processing and starts execution of the 
generatad contro! statemant files while 
ABORT terminates procedure processing 
and returns control to the user. 


Alternate File Creation RNUT provides ai capability to direct 
text from the body of a procedure to a 
designated file, 


File Inctuston INCLUDE can Insert Into the body of the 
procedures the text of any other 
designated file. 


User Interaction The 4SG command can send messages to 
any designated file. The ACCEPT 
command ean read fines from any 
designated file. These two commands 
ara most useful for making interactive 
procedures which may talk to the user. 
DAYFMSG allows messages to be written 
to the Job dayfile during procedure 
processing. 
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6e1 TE_=_ORLE=_ELSE_=_1TEEND CONDITIONAL PROCESSING 


The SES processor provides a mathod whereby a block of statements 
can be processed conditionally. The general form of the complete IF 
gang is laid out below. 


\ IF some condition THEN *“ One of these * 
blah 
biah 
\ ORIF another condition THEN - There may be zero to * 
mumble 
mumble 
\ ORIF yet another condition THEN » many ORIF statements * 
rhubarb 
rhubarb 
\ ELSE =" zero or one of these * 
yakk 
yakkity yakk. yakk 
\ IFEND “ Terminates the fot " 


To illustrate the use of IFs wa'tll took at the last few tines of 
the TIME procedure that was shown previoustlye Ramember that we had 
the variables “sector"»s “sectnam"’ and "hours™ set upe The smail 
piece of conditional code in TIME Is soe that the time always comes 
out in the form of SOMETHING TO/PAST SOMETIMEs except when it is the 
hour itself, In which case SOMETIME O'CLOCK will be output. The 
piece of code that does this Is? 


IF sector = 0 THEN 

fastwrd = Ghours& ++ Esectnamé& 
ELSE 

fastwrd = &sectnam& #+ Ghourss& 
IFEND 


Elasturdé& 


As you can see from the codes the two halves of the time string 
are arranged In a different order depending whether it's the hour or 
note 
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602 WHILE =_WHILEND REPETITIVE CODE. PROCESSING 


The WHILE command allows a section of code to be processed over 
and over as Jong as a condition is true. The general form of the 
WHILE command is? 


\ WHILE condition is true DO 
bunches of 
procedure statements 
\ WHILEND 
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603 CINTROL STATEMENTS 
This section describes directives in addition to IF and WHILE 


that control which statemants wil! be processed by SES. These 
directives aret STOP» ABORT» EXIT» and CYCLE. 


b6e3del STOP - STOP PROCEDURE PROCESSING 
The STOP directive is used to prematurely terminate processing of 
the procedure. Its effect Is equivalent to surrounding the part of 
the procedura that followed it with an IF/IFEND for which the 
condition is FALSE. The general form of the STOP directive is: 
\ STOP C€ string expression ] 


whera string expression specifies an optional message to be sent to 
the dayfile. : 
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be3de2 ASDRT — ABORT PROCEDURE PROCESSING 

The ABORT directiva is similar to the STOP directive with the 
exception that the SES program will abort Instead of executing the 
ganer ated procedura. It can be usads for instances when parameters 
to a procedure were not specified correctly. The general form of 
the ABIRT directive is? 


\ ABORT C string lexpression j 
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60303 EXIT = EXIT STRUCTURE 


The EXIT directive is used to conditionally or unconditionally 
exit from the “Immediately containing structure". This “structure” 
may be an IF “statement™", WHILE "statemant™s or INCLUDEd procedure 
“segment™, If the EXIT directive is not contained within any of 
these “"structures"s It acts like a conditional or unconditional STOP 
directive. The general form of the EXIT directive is: 


\ EXIT € WHEN boolean expression } 
The exit is taken if the WHEN boolean_expression is omitted or if 


it is given and evaluates to TRUE. For examples the following are 
equivalent: 


\ IF condi THEN \ IF condl THEN 
stuf and junk 1 stuf and junk 1 
\ EXIT WHEN cond2 \ IF NOT cond2 THEN 
stuf and junk 2 stuf and junk 2 
\ IFEND 
\ IFEND \ IFEND 
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6364 CYCLE = NEXT ITERATION OF WHILE 


The CYCLE directive can be used to proceed to the next iteration 
of the Innermost WHILE "statement" that contains the CYCLE directive 
aither conditionally or unconditionally. The general form of the 
CYCLE directive Iss 


\ CYCLE € WHEN boolean_expression 1} 


The cycle is taken if the WHEN bocolean_expression is omitted or 
if it Is given and evaluates to TRUE. For examples the following 
are equivalent: 


\ WHILE condi 00 
stuf and junk 1 

\ CYCLE WHEN cond2 
stuf and junk 2 


WHILE condi DO 
stuf and junk 1 
IF NOT cond2 THEN 
stuf and junk 2 
IFEND 
WHILEND 


de nn a od 


\ WHILEND 
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6e% ROUT_=_ROUTEND_ ROUT _TEXT_ID_A NAMED FILE 


ROUT orovides the ability to divert text from within the body of 
an SES procedure to a specified fite. The form of the ROUT command 
Ist 


\ ROUT CFA=)] file name 
text 
to 
be 
routed to another file 
\ ROUTEND CNGEOR=] [{[fite_ name] 


All the text within the ROUT - ROUTEND bracket is sent to the 
Named Files with the proviso that any directive tines within the 
block ara processed as they are encountered, 


“fila name™ Is the file to which the text Is to be routeade The 
optional FA keyword on the ROUT command specifies that the text Is 
to be output In Full ASCII» that Iss blank lines are output and 
lower case letters are not folded to upper cas@. If the Fa 
pearaneter is not codeds then the outout text has lower case tetters 
Folded to upper cases and blank lines are discarded on output. 


When the ROUTEND command Is encountereds SES normally writes an 
end of record on the file at that pointe. If the optional NOEOR 
parameter Is coded on the ROUTENDs then the end ef record is not 
written. This provides a useful facliity to ROUT many sections of 
text to the same file ina disjointed fashion. 


The "tile name" on the ROUTEND is optional. Its use Is 
encourageds since it makes the procedure sasier to reads howevers if 
the name on the ROUTEND doesn't match the name of the file at the 
top of the output control stacks then the ROUTEND directive is 
Ignorad. 


It fis possibile to nest ROUT = ROUTEND blocks within other ROUT - 
ROUTEND blockss as tong as the Inner ROUT*s don't reference the same 
filename as the other ROUT's, If a ROUT directive does try to 
reference a fille which is already being ROUT'ed tos then that ROUT 
directive is ignored. 


ROUT'Iing ts oparticulerty useful for creating a files within a 
procedures which is to be submitted as a batch job. For example? 
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\ jobfile = UNIQUE(NANE) 
S$SUBMIT(E jobfiteis8) 
SRETURN(& jobf ites) 

* J0B Gprocnam& SUBMITTED 


\ ROUT jobfile. 
Guserés T2000. *** Bprocnarg& **+* 
SUSER(R user &»&passwords) 
SCHARGE (E&char ge&s &pro jects&) 
job 
control 
statements 
\ ROUTEND jobfite 


could be used by a procedure to SUSMIT a batch job. 
As a conventions procedures that ROUT stuff to files have the 
ROUTtad text blosks at the end of the proceduree This makes the 


main body of the procedure easier to reads without It teing 
cluttered up with all the ROUTted material. 
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6.5 INCLUDE_= SWITCH INPUT_I0_a_NAMED_EILE 


INCLUDE aliows you to read text from a file othar than the body 
of the current procedure filee The effect is as If the INCLUDE'd 
file was physically Inserted in thea procedure file body at the point 
of the INCLUDE command. The most primitive form of INCLUDE is: 


V INCLUDE F=file_name (,UN=user_name] 


*“flie_name*® is the name of the file to be INCLUDE'ds and the 
(optional) “user _name™ specifies the catalog where the file is to be 
found. If the file is already local to the running jobs then the 
local copy of the file is used. 


The generals and probably more useful form of INCLUDE looks tike 
this? 


V INCLUDE Fefile names L=tocal Jibs LPFN=library names UN=user 


In this formats "file lname™ Is still the name of the fife to be 
INCLUDE'ds but now It refers to a procedure record in a PLIB library 
of name “Ttibrary name" in the catalog of the user given by “user”. 
"local_!ib"” is the name of the LFN or Local File Name by which the 
library Is known when SES ACQUIRE's the librarye It ts always,» 
alwayss but always good practice to use a local file name for the 
library because INCLUDE's may be nested within INCLUDE'ss and as 
long as the ftocal fille names are differents NOS is quite happy to 
let you read from different positions of the same file. 


To {tftustrate hon INCLUDE workss we'li show a section from the 
SES REPMOO procedure. This same INCLUDE flie ts used by ali SES 
procedures which update tlbraries. 


\ rewriti = "&intbaseé ! 
\ rewrito = *nbé* 
\ INCLUDE "REWRITE*»s LeUNIQUE( NAME)» LPFN=SESLNAMs UN=SESUNAM 


The procedure saction shown above sats the Input and output file 
names for REWRITE ("rewriti®™ and “rewrito")» and then INCLUDE's the 
REWRITE oproceduree In actual facts REWRITE is a stand alone 
procedure in Its own rights and it Is possible to simply use REWRITE 
as a standard SES procedures such as. 


SES eREWRITE I=Gintbaseis O=Enbs 
Why didn't we do it that way? Well the main reason is that the 
complete REPMDD procedure run (from procedure cali to finishing the 
job) goes faster by INCLUD' Ing the REWRITE procedure. If we'd 
written SESREWRITEs then during the processing of REPMODs we'tdve 
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hit the procedure calis searched the procedure Itlbrariess cracked 
the control statemant»s» etc» etce The whole thing goes a lot faster 
for INCLUD* ing the Inner procedure. 
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66 USER_INTEREACE DIRECTIVES 
The directives in this group can be used to “talk” to the user of 


a procedure and to jet the user "taik™ back. The directives are? 
DAYFMSS» MSG» and ACCEPT. . 


bedel DAYFMSG = SEND MESSAGE TO DAYFILE 


This directive can be used to place ai message in the user's 
dayfile. The general form of the DAYFMSG directive is3 


\ DAYFMSG string expression 


where string lexpresstion defines the message to be sent. 
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606.2 MSG - WRITE MESSAGE TO FILE 


This directive is used to write messages to a specified fils. 
Its gensral form ist 


\ MSG M=stringlexpression € TO=file name } 


where string expression defines the message to be written and 
filename specifles the name of the file to receive the message. 


The default for file name is OUTPUT. Note: that if file name is 


omitted and file OUTPUT Is not assigned to a terminals the message 
is pot written. 
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6026.3 ACCEPT = READ 1 LINE FROM A FILE 
The ACCEPT directive reads 1 tine from a specifled file into a 
specified variables, optionally preceading the read request with a 


prompting message to another file. The general form of the ACCEPT 
diractive is: 


\ ACCEPT INTO=var_name CFROM=inf ile) CPROMPT=mesg] (TOzoutfite} 
where var.name is the name of the variable which will receive the 
line from file iInfile. The PROMPT and TO parameters are equivalent 
to the M and TO parameterss respectivelys of the MSG directive (see 
abova). The dafauit for infile is INPUT. 

Note: ali parameters on directives are expressions} therefore tt 
js gtrongly recommended that parameters which are to be names» be 
given as stringse. For example 

\ ACCEPT INTO="varl! PROMPT=msgl 
is generally much safer than? 
\ ACCEPT INTO*varl PROMPT=ms91 


since In the second cases If varl already has a values that value 
will be used for the INTO parameter, 


60460270 @2 


6-15 
COC - SOFTWARE ENGINEERING SERVICES 
22 MAY 84 
SES Procedure Writer's Guide REV? 2 
6.0 SES DIRECTIVES 
6e7 SETRFL =~ PROCEDURE FIELD LENGTH CONTROL 


6.7 SETREL = PROCEDURE _ELELD LENGTH CONTROL 


When a procedura Is runnings It is always good opretice to keep 
central memory field length to a minimum. This heips to provide 
better response time for all users (including yout)», by reducing 
swap time. Howevers it Is also a nice touch to restore the user's 
field tength at procedure end to what 1t was when the procedure was 
called. The SETRFL directive provides the ability to do this. The 
format of the SETRFL directive is: 


\ SETRFL min€..max] 
the action of SETRFL Is best explained In this set of SES code. 


\ IF FL < min OR FL D> max THEN 
SRFL(CEminE) 

\ RFLLINE = *S$RFLC(EFLE)? 

\ ELSE 

\ RFLLINE = * ¢ 

\ IFEND 


in other wordss if the current user's fleitd length» given by the 
predefined variable FL is outside the limits specified by "min”™ and 
"“max",s then we generate a control statement to the control statement 
file to RFL to ™min™s, and we then sat the oredefined variable 
WRFLLINE” to the contro! stetement needed to restore the user's 
field tength. Typicatly,s we would then piace an ERFLLINES tine at 
the end of the procedure. The "max" part of the SETRFL directive is 
optionals and tf omitteds is the same as “min". In that cases the 
$RFL statement Is generated if the current FL Is -unequal to that 
specified by “min", 
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7.0 PARAMETER DEFINITION AND PROCESSING 


Now at last we come to the real purpose of SES» that iss reading 
parameters from the SES control statement and subanecurens them into 
the CCL statement file. 


The topics discussed in this section should now be fairty 
Straightforward. They are basically concerned with parameter 
definition via the PARM=-PARMEND directivess and the various 
facilities for accessing parameter attributes and values. 
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7ol PARM_-_PARMEND DEEINING PARAMETER _LISIS 

When we discussed the general iayout of a procedure in the 
section on basic SES processings we saw that a procedure may have 
zero to many PARM directivess terminated with a PARMEND directive. 

PARM stands for PARaMeters and it Is the basic SES directive 
which defines what a procedure paraneter may look !ikee PARM allows 
you to define the following things about a parameter. 

o The keyword or keywords used to define that parameter. 


o number of values which that oarameter may be given when [It is 
coded. 


o whether the parameter Is required to be specified in the 
procedure call tinee 


o tha allowed type of the parameter. 


The genaral form of the PARM directive ist 


\ PARM KEY2keywordss CNVALS=*xxJ]s Ctype] CREQ] CRNG) 


KEY identifies the xayword or keywords that may be used to 
specify this parameter when coding it on the contro! 
statement. 

NVALS sryecifies the minisum and maxinum Number of VALueS that may 


be coded for this parameter. Default is 1 (one). 


type identifles the allowed type of the parameter. “type™ may 
be coded as one of the following? 


NAM specifies that the parameter must be a NAMee That ts» 
a one to seven character alphanumeric string starting 
with a fettere 


NUR specifies that the parameter must be a NUMbers that 
Iss a pure numertec strings with an optional base. 

STR specifies that the parameter must be a STRing. 

FON: designates that the pzeramneter may ba a ForeiGN text 


parameter. This type of parameter has the format of 
en expression (or parameter specification) but it is 
pot evaluated when encountereds rather it Is “passed 
on® essentielly unnodified. Foreign text parameters 
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ere normatiiy only used when value sub-lists are 
required for a parameters, and It then becomes the 
responsibility of the procedure to check the validity 
of the parameter. Detalls of the format (and 
restrictlons) of foraign text values can be found in 
the subsection “Foreign Taxt" in the appendix on 
syntaxe 


REQ is a keyword that spacifiaes that the parameter is REQuired 
to be stated when calling the proceduree 


RNG states that the parameter may be coded as a RaNGe. That 
Is» the parameter may be coded in the form of xKeeys for 
exanple cols=2e.75 


The basis of ali this definition is that SES checks the 
paraneters given on the control statement to see if they are 
actually as you said they should bee If they are nots then SES 
outputs an error message at the time of processing the procedures 
saving a massive amount of playing about in the body of the 
procedure itself. 


Mate that on an SES procedure calls a value can be omitted from a 


parameter's value list aniy if that parameter was pot declared with 
an explicit type specifier on its PARM directive. 
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702 PARAMETER ATITRIBUTE_TESTING 


SES provides a number of functions to test the attributes of 
parameters as defined in the PARM directives. <A short summary of 
the functions Is provided belows and more detailed explanations 
follow. 


In the discussions that follows we use the convention that 
"parameter name” maans any of the keywords used to specify a 
particular parameters and “ksyword name™ to mean a specific keyword 
out of the set of possible keywords for a parameter. For examples 
if we'd coded the following PARM directive: 


\ PARM KEY = (85% "%, "Einput*s "file') etc. 


then “parameter_name" means 'i' or "ft or tinput* or "filets whereas 
“keyword name” means only one of thoses say tinput!. 


Evyoction Exelanation 


DEFP( parameter name) returns a true value if the parameter 
specified by “parameter name" was actually 
coded on the control statement. 


DEFK( keyword nama) returns a true value if the keyword 
specified by “keyword. name™ was actually 
coded on the control statement. 


KEYVAL(p erameter_name) returns the keyword that was actually used 
to define the parameter specified by 


"parameter name”. 
VCNT( parameter name) returns the number of values actually coded 
for the parameter specif ted by 


"parameter name". VCNT Is deserthbed In 
detall in the subsection on *"Accessing 
Parameter Values", 
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7e2el DEFP = TEST FOR THE PRESENCE OF A PARAMETER 


The DEFP function allows you to test if a parameter was actually 
defined. DEFP stands for DEFined Paramater. The general form of 
DEFP iss 


DEFP( parameter name) 


where "oarametar_name”® is any of the keywords for the parameter in 
question. For examples thera are many of the SES tibrary procedures 
(or filters)» that take one input file and produce one output file. 
These procedures are geared up so that if you only specify one 
filenanes then when the procedure is finished it wilil write the 
output file over the input file. The piece of SES procedure code 
that would achieve this Is: 


\ IF NOT DEFP{o) THEN 
\ o = *6i6? 
\ IFEND 


Later on In the procedures we would use the fact that the 'i! and 
fot paremetars are either equal to each other or not. 


Nate that if “parameter _name” ts not the name of a parameter to 
the procedures this function will raturn FALSE as Its value. 
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7e202 DEFK = TEST FOR PRESENCE OF SPECIFIC KEYWORD 


The ODEFK function stands for DEFined Keywords and its function in 
tife ts to test whethers when a parameter was codeds a specific 
keyword was used to define that parameter. The general form of DEFK 
is? 


DEFK(keyword_name) 


where "keyword name™ is the keyword for which we want to test. To 
illustrate the use of DEFK»s wetll show ao short extract from the 
FORMAT procedure. Most of the SES system Ilbrary procedures which 
can run as batch jobs contain this particular section of code. The 
idea of the bit of code is to dump a dayfile to the user's catalog 
If there were any errors In the Job. The dayflle parameter Is 
defined via the following PARM diractive. 


\ PARM KEY=('nodayf'"s*dayfile's'df*) NVALS=0..1 NAN 


the ‘'nodayf'! keyword specifies that no dayfile is required at ail» 
in any event. 


In the FORMAT Jobs the following piece of SES code may be found 
to process the parameter. 


\ IF NOT DEFK(noday?) THEN 
EXIT. : 
SDAYFILE(Edayfileé) 
SREPLACE (Edayfile&) 

\ IFEND 


To explain how this workss if the user coded nodayf as an option 
on the procedure calls then the test at the IF statement would fail» 
and none of the statements between the IF and the IFEND would be 
processed or output to the contro! statement file. However if the 
user coded dfssome_files or dayfilezsome files or omitted the 
parameter aftogethers then the test would succeed» and the EXIT» 
S$DAYFILE and SREPLACE control statements would be processed to refer 
to whatever “some _fiie"™ happened to bes or would refer to "DAYFILE" 
if the parameter had not been coded. 


Note that If “"kayword name” is not the name of a keyword to the 
procedures this function will return FALSE as Its value. 
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Te2e3 KEYVAL =~ ACCESS ACTUAL KEYWORD OF PARAMETER 


KEYVAL stands for KEYword VALues and its function is to tet you 
know which keyword was actually used when specifying a parameter. 
The general form of KEYVAL is? 


KEYVAL (perameter name) 


where “parameter name” is any of the keywords that can be used to 
specify the particular parameter that you are interested ine The 
KEYVAL function returns as a strings the keyword that was actually 
used when the. parameter was coded. 


If no keyword was used to define the parameters that Is» the 
pearaneter was specified positionallys then KEYVAL returns the null 
stringe: 


Note that if “parameter_name" is not the name of a Parameter to 


the proceduras then this function returns the null string as its 
value. 
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7e3 ACCESSING PARASETER VALUES 


There are essentially two ways of gatting at the value of a 
parameter: by substitutions and by using one of the functions 
described in the following subsections. 


It is not possible toe directly referance a parameter vaiue in an 
expressions rathers one of the methods described above must be used. 
This is to allow a keyword for a procedure to hava the same name ss» 
for instances one of the predefined variabless and yet within the 
procedureés to access both the parameter and the variable. 


The substitution machanism of SES always first checks for the 
name as being the name of a parameters and only if this check fails 
does it look for a variable to substitute. This priority is atso 
followed when assignment takes olaces either explicitiy via the 
assignment statements or impilctly via functions such as TOKEN and 
VALEXPR, discussed previousty. 


Substituting a parameter can be represented by the following SES 
code: 


\ dummy = VALS(parems ls LOV) 


where “dumny"® is some temporary varlablee In other wordss the LOw 
Values of vatua 1 for parameter "param" is substituted. You would 
actually code such a substitution as: 


The functions dascribed in the following subsections may aisc be 
applied to variables with string values (In addition to parameters). 
When used for this purpose the string value must be in the formet of 
a value fist (see the Appendix on Syntax for a detailed descrigtion 
of the format of a value list). In particulars the interpretation 
of the string Is that it contains a value list for a "parameter" 
defined by? 


\ PARM NVALS#0-.cmaxvaiss FGNs RNG 


The descriptions of the functions: VONTs VALS» and GENLIST which 
foilow oniy discuss their use with parameters in order to keep the 
description as simple as possibles howevers the first argument to 
afl thesa functions msy etso be the name of a variable whose vaius 
has the properties discussed above. 
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7ed3el VENT — NUMBER OF VALUES OF A PARAMETER 


VONT stands for Vaiue CouNTs and its function is to determine the 
nunber of values coded for a parametere The form of VCNT is? 


VCNT( parameter nama) 


where “parameter_name"™ Is the name of the parameter for which you 
want the value count. 


For examplas the SES WIPEMEM procedure has one of its parameters 
defined via the following PARM directive: | 


\ PARM KEY = *text’® NVALS = leemaxvais NAM 


so that It's possIble for the user to code a call on WIPEMEM which 
looks sonething like this: 


SESeWIPEMEM text=(glug»sgrogsberksciag) 
so that within the WIPEMEM procedures the assignment statement 
\ mencoun = VCNT (text) 
would set the variable "memcoun" to 4 In this case. The way that 
Sg is actually used Is in a WHILE loops something along the tines 


\ index = 1 
\ WHILE index <= VCNT (text) DO 


blah 
biah 
biah 
\ index = index + 1 
\ WHILEND 
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7o302 VALS = EXTRACT PARAMETER VALIIE FROM A VALUE LIST 


VALS Is probably about the most useful function avallabie to the 
writer of SES procedures. VALS stands for VALueS» and its function 
Is to extract a value from a tist of values which may be coded for a 
specifle parameter. The general form of the VALS function is! 


VALS( parameter names indexs LOV/HIV) 


where "oarameter_ name" is the parametar for which the value is to be 
extracted. “index" is an integer expression which determines «hich 
value out of the value list is to be extracted. The last parameter 
is LOV which stands for LOw Value» or HIV which stands for HIgh 
Value. This Indicates whether the low or the high side of a renge 
is to be extracted. <As an examples the COLS parameter of the 
COPYACR procedure can be coded as 


COLS=xxecyy 
where "xx" jis the fow side of the range and “yy" Is the high side of 
the rangee The appropriate VALS functions is something like the 
following? 
\ foside = VALS{colss ls LOV) 
VN hiside = VALS(COLS»s 1s HIV) 
If the LOV or HIV parameter Is omitteds then VALS takes the LOV 
as dafault. If the "index" parameter is onitteds then VALS uses 1 
as default. So for instance the VALS functions 
VALS (parameter name) 
is equivalent to the VALS function? 
VALS (parameter_names is LOV) 
If the "index" parameter is given as tass than or equal to zeros 
or greater than the maximum values allowed for any parameter (50) 
the error message VALUE OUT OF RANGE is given; or if *index" fs 
greater than the actual number of values coded for the parameters 
the function returns an *yodafined™ value. 
If HIV was specified on the call to VALS but the value was not 


coded as @ range (or was not altowed to have ae range) the 
corresponding LOw Value is returned. 
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70303 GENLIST ~- GENERATE LIST FROM PARAMETER LIST 


The GENLIST functions for GENerate LISTs allows you to build up a 
string from a parameter fist supplied to the SES procedure. The 
general form of GENLIST is: 


GENLIST(para names couns line tims max_couns range_seps value_sep) 


This looks complicated but since most of the arguments can be 
omitteds It's actually a lot simpler than It looks. The meaning of 
the various parameters of GENLIST arat 


parm uname is the name of the parameter that you want to accesse 


coun is an Index uhich Indicates at which value in the tist 
you want to start accessing. If “coun” is undefined 
when GENLIST is invokeds then GENLIST dafines it for 
yous and initializes it to one (1). When GENLIST has 
processed the lists “coun” will be set to one greater 
than the last value processed in the fist. If “coun" 
has a value (when GENLIST is invoked) which Is less 
than one or greater than “max _coun"s the error massage 
VALUE OUT OF RANGE is given. 


line_ita Is the meximum number of characters you want to go in 
the generated ltist. The default is 80. 


max_coun is the highest Index that GENLIST Is to process up toe 
The default is the actual number of values coded for 
the parameter. 


range sep is the character used to separate the tow side and 
high side of a range value. If “"“range_sep" is 
omitteds it defaults to the SES range separator (..) 


value sep is the character used to separate values In the tiste 
If “value sap" Is omitteds it defauits to comma (5) 


To illustrate how GENLIST works» wa'til took at a section of the 
ScS WIPEMEM procedure. One of WIPEMEM's parameters is defined as 
followse 


\ PARM KEY = *text* NVALS = lesmaxvals NAM RNG 
The WIPEMEM procedure Invokes LIBEDIT to actually delete the 


member records from the tibrary. It is possible to give LIBEDIT a 
directive of the form. 
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*#DELETE TEXT/ GRAB» HOLDs HERE~THEREs JUNK~-YUKK etc etc 


Such a deletion could be coded on the SES control statement in the 
following manner: 


SES eWIPEMEM L=MYLIB TEXT=(GRAB sHOLDsHERE» eTHEREs JUNK oe YUKK) 


The following section of code {fs taken from the WIPEMEM 
proceduras shoxning how GENLIST is used to generate the LIBEDIT 
directivese. 


\ meatyps = "(TEXTsOPLCsOPL»RELsOVL » ABS sPPUsPP,COS)* a 
\ dirfile = UNIQUE (NAME) a 


® 


td bet 
3 


ROUT dirfite 
typcoun = 1 
WHILE typcoun <= 9 DO 
mentype = VALS (memtypss typcouns LOV) 
IF DEFP (&memtypeé&) THEN 
mesmcoun = 1 
WHILE memcoun <= VCNT (Ememtype&) DO 
comd = GENLIST(Gmeatypef&s mencouns 64s VENT CEmemtypes ) 
DELETE »&meatypeé /Ecomd& 
WHILEND 
IF:END 
typcoun = typcoun + 1 
WHILEND 
ROUTEND dirtfite 


) 


s#cz:ae2n2sa84% 2383232323233 


fund Gud fod pend eed feed § 


PP PA PRE PEP LAP AIF 
PWS WN ht © OG a o& WF & OD) 


fine l defines the tlist of parameters for which LIBEDIT 
directives may be generated. 


fine 2 defines the name of the file to receive the directives. 
line 3 initiates the directives file. 


fine 5 sterts a ltoop which cycles through all of the directive 
generating parameters defined on tine 1. 


fine 6 sets the variabie "memtype” to the name of the next 
parameter for which directives may be generated. 


line 7 checks whether the current parameter was soecified when 
the procedure was called. 


line 9 starts @ loop which cystes through ail values supplied 
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for the current parameter when the procedure was called. 

fine 10 uses the GENLIST function to extract member names from 
the vatue tist of the current parameters end format them 
into a LIBEDIT directive. 


line 11 causes the directive to be written to the directives 
file. 


The remaining tines handle the cycling of the toops and the 
finishing off of the diractives file. 
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7.4 QEEINING PARAMETER DEFAULTS 


In this section we witli describe some of the methods for defining 
default values for parameters (and keywords). The simplest way of 
setting a default for a single valued NAM parameter is to deciare 
the default as one of the keywords for the parameter}; then use that 
keyword throughout the procedure to refer to that parameter. For 
examples the SES REPMEM procedure contains? 


\ PARM KEY=( "g's *group')s NVALS=*1» NAM 


which defines the parameter for the 'group’ (of members) file. Atl 
through the procedures this parameter Is referred to via the 'tgroup!? 
keywords thus If tha perameter is not speciflad on the call REPMEM» 
GROUP will be substituted anywhere Ggroup& appears. 


When this method Is not approoriates one of the functions 
described in the following subsections could be useful. The purpose 
of these functions is to determine if a parameter was given a velue 
{SETVAL) or if a keyword was used to specify the parameter (SETKEY). 
If this condition ts trues then the SETVAL function is treated like 
the VALS functlons and SETKEY Is treated tike KEYVAL. If the 
condition is faises the remaining processing done by both functions 
Is the samee If the spacified variable is defined (usually in the 
user's PROFILE) then its value is returned by the functions 
otherwise the specified default value is returned. 
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7e4el SETVAL = SET DEFAULT VALUE 


The purpose of this function ts to return a vatue for «a 
parameters much tike the VALS function described eartiers in fact 
this function's ftast three parameters are treated just like the 
three parameters for the VALS function. The general form of the 
SETVAL function Iss 


SETVAL( defaul t_valuesvar_namesparameter namesindexsLOV/HIV) 


where "Index" and "LOV/HIV™ are the parameter value indices and are 
handied in the same manner as in tha VALS functions “paramater_ name" 
is apy of the keywords for the parameter you are Interested ins 
“var _name*® is a variable names and "default value” fs an expression. 


The processing of the SETVAL function can best be explained in 
terms of the following pseudo SES code? 


\ IF STR(IVALS(parameter names Indexs LOV/HIV)) THEN 
SETVAL = VALS( parameter _ names indexs LOV/HIV) 
ORIF DEF (var_name) THEN 

SETVAL = var uname 
ELSE 

SETVAL = defauitivetue 
IFEND 


PPP? 
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Tete2 SETKEY = SET DEFAULT KEYWORD 


The purpose of this function is to establish a value for the 
keyword of a parameter. The general form of the SETKEY function Is3 


SETKEY(defauit_vaeluesvar namesparameter name) 


where “parameter_name™ Is any of the keywords for the parameter you 
are interested ins "var name” is a variable names and 
“defaultivalue™ is an expressione The processing done by the SETKEY 
function can best be described by the following pseudo SES code: 


IF KEYVAL( parameter name) /= '* THEN 
SETKEY = KEYVAL (parameter _name) 
ORIF DEF Cvar_ name) THEN 
SETKEY = var_name 
ELSE 
SETKEY = default uvatiue 
IFEND 


i i a i i a al 
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8o0 EILLE.SYSTEM DIRECTIVES 


SES provides directives which allow you to issue file system 
commands directiy from the body of an SES procedures. The commands 
fali into tha groups of 

o Fite attribute testing similar to tna NOS FILE function. 

o Rewinding and Returning Files 

0 ACQUIRE and EXTRACT directives simitar In function to the 


ACQUIRE and EXTRACT controt statements (the tatter are 
described in appendices to this document). 
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Bol ELLE_=. TESTING FILE ATTRIBUTES 


SES implements the NO§ FILE function which allows you to ask 
various questions about filese The tests that may be performed are 
described In the NOS reference manuals. The general form of the 
FILE function is 


FILE (file names expression) 


where "file -name™ Is the name of the file to be testeds and 
"expression" is the test to be performed. 


Dantt faraet that the FILE function Implemented by SES tests the 
file attributes at the time the procedure body is being processeds 
and not when the generated contro! statements are actually being 
executed, 
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8.2 REWIND FILES 


SES allows files to be rewound during SES processing. The format 
is’ 


REWIND F=iist_of_file names 


where fist lof fille names is the name(s) of the filets) to be 
rewounde 
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8e3 RETURNEILES 


Files may also be returned during SES processing. 
simifar to the Rewind directive: 


RETURN Fetistlof filenames 


where listlof_file_names Is thea name(s) of the 
returnede 


The format is 


file(s) to be 
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Se4 ACQUIRE DIRECTIVE 
SES supports the ACQUIRE directive from inside the SES processor. 


The SES ACQUIRE directive works in the same manner as the ACQUIRE 
control statement. The general form of the ACQUIRE directive is? 


ACQUIRE FN/Fetlocal_file names PFN=permanent file_names UNsuser_ name 
where “local_file_name* Is the local file name when the file is 
ACQUIRE'ds “permanent file name" is the permanent file name of the 
file in tha file systems and “user _name”™ is the name of the user who 
owns the File. 


A complete dascription of the ACQUIRE contro! statement can be 
found in an appendix to this documant. . 
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8.5 EXTRACL_DIRECIIVE 


SES also supports the EXTRACT directives which functions at 
procedure bulld time In. the same manner as the EXTRACT contro! 
statement functions at procedure run tima. The ganeral form of the 
EXTRACT directive is: | 


EXTRACT F2ifnsRernslL =) sLPFN=IpfnsUzunsTetype 


where the parameters of the EXTRACT directive have the folloning 
meaninge 


Foor FN specifies the focal File Name for the record when 
it has been EXTRACT*ted. 


Ror RN specifies the Record Name of the record in the 
library. 

lL or LI8 specifies the Local file name of the LIBrary when 
the EXTRACT directive <ACQUIRE's the library for 
processing. 


LPFN or LIBSPFN specifies the LIBrary Permanent File Name of the 
library in the permanent file system. 


Uoor UN specifies the User NAMe of the filets owner. 


T or RT specifies the Record Type. The record typa may be 
specified as TXT» TEXTs PPs ULIBs REL» OVLs ASS» 
ODPL» OPLCs OPLDs PPU. If this parameter is omitted 
from the directives then only the record name is 
used when searching the IJlbrarys and the first 
record of that name is EXTRACT ‘ted. 


A compiste description of the EXTRACT control! statement can be 
found In an appendix to this document. 


60460270 2 


9-1 


COC - SOFTWARE ENGINEERING SERVICES 
: 22 MAY 8&4 
SES Procedure Writer's Guide REV? 2 
9.0 PREDEFINED VARIABLES 
9.0 PREQEEINED. VARIABLES 
When SES Is cailed tt sets up a number of variables which are 
availiable for usa by the procedure writer to control the flow of 


procedures.e . 


Most of these predefined variables are a record cf the 


user's environment at the time that SES was called. 


Gol SES -SYRTEM_DELAULT VARIABLES 


MAXVALS 


LINELEN 


SESLNAM 


SESUNAM 


PRCLNAM 


PRCUNAM 


HLPLNAM 


HLPUNAM 


STALNAM 


STAUNAM 


PROCNAM 


defines the MAXImum number of VALueS that may be coded for 
a parameter. It Is set to 255, 


defines the maximum LINE LENgth. It is currently set to 
BO. 

defines the default name for the SES Library NAMe. It is 
currentiy set to SESPLIB. 

defines the default name for the SES User NAMe. 

defines the name of the file (ll fbrary) from which the 


current procedure Is being read. 

dafines the user name for the owner of the file (library) 
from which the current procedure is being read. If the 
current procedure Is being read from a tocal filles then 
this varlable is set to the name of the current user. 


defines the default name for the SES HelP Library NAMe. 
This tibrary contains help documentation for standard SES 
procadures. It is set to SESHLIB. 

the help 


defines the user name for the owner of librarye 


It Is currently set to SES. 


defines the 
This tlibrary contains status Information for 
SES procedures. It is sat to SESSLISB. 


default name for the SES STAtus Library NAMe. 
the standard 


the defauit name for the of the status 


It is currently set to SES. 


defines 
fibrarye 


owner 


contains the name of the procedure which Is currently being 
processed. 
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PRIMOUT contains the name of the current PRIMary OUTput file. 
USER contains the user name of the currently logged in usere 


DUN default catalog that contains tha user files needed by the 
procedure being called, 


DPN default packname that contains the user files needed by the 
procedure being called. 


JOBNAME defines the name of the currently running job. 


CSET contains the current character set of the user terminal. 
CSET may be elther ASCII (1) or NORMAL (0). In batch node» 
CSET contains NORMAL. 


MODE defines the current mode of the procedure(s) being 
processeds MODE contains ona of RUNs meaning that the 
procedure is being processed for execution in the cortrol! 
statement files TESTs meaning that the procedure is being 
run in test modes HELP» which means that the user wants 
help with the proceduras or STATUS» which means that the 
user wants the current status of the procedure, 


SES _PROC_ ERROR defines a numeric value that can be used to set the 
EF tndicating an error was detected by the procedures not 
the operating system. It is currently set to 40. 


9o2 USER ENVIRONMENT VARIABLES 


When the user makes an SES calls SES records information about 
the users environment at cal! times so that a procedure writer may» 
if so desireds restore the user's anvironment at the end of the 
procedure. The data that is recorded ist 


Rl thru R3 job control registers. 

R16 global job control register. 

EF error flag 

EFG global error flag 

SW1-SW5 sense switches 1 to 6. 

FL field ftength at procedure call time. 
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RFLLINE until otherwise changed (see the SETRFL directive), 
RFLLINE contains the character string *SRFLUSFLE)!» 
where FL is as defined above. 


ABL account block timit. 
JL job step Vimit 

OT | origin type. 

S$ sub system 

TL time timite 


Note» that beceuse of the large numbar of bullt-in functions and 
pre-defined variabies avallable to the SES procedure writers there 
could be some confusion on the part of the procedure user when 
he/she chooses a name (for a filas etc.) which sonflicts with one 
of the "built-ins". To avoid such confusions SES will recognize 
enly the namest TRUEs FALSEs YES» and ND when it scans the 
parameters on the control statement which catts a procedure, 
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Alo USEEUL PROCEDURE SEGMENTS 


This appendix contains descriptions of some procedure segments 
that could be useful when writing SES procedures. These segments 
may be included in a procedure by means of the following directives 

\ INCLUDE 'segname*s L=UNIQUE(NAMNE)» LPFN=SESLNAMs UN=SESUNAM 


where “segname™ Is the name of the desired procedure segment. 
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Alel CALPROC_ =_CALL_SES_ PROCEDURE 


This procedure segmant allows for easy calling by one procedure 
of anothers when the calling procedure wishes to pass to the called 
procedures parameters from its own paramater tist. The procedure 
segment itself glves further details. 


CALPROC 
*" August 31» 1981 ™ 
" \ PARMEND * 


\ DIRCHAR = ‘1! 

$ IF MODE = HELP THEN 

\ INCLUDE *"CALPROCHLP® L*UNIQUE( NAME) LPFN*HLPLNAN UN=PRCUNAR 
! ITFEND 

$ DIRCHAR = *\' 


* CALPROC_COMMON * 


\ calindx = 1 
\ WHILE calindx <= VCNT(&calparms&) 0D 
\ IF (45° /= SUBSTRicallines STRLEN(calline))) AND o- 
(SUBSTRicallines STRLEN(cailine)) 7= *(8) THEN 
\ calline = caliine ++ %»s! 
\ IFEND 
\ calline = callina ++ ee 
GENLISTCEcalparm&s calindxs LINELEN=5-STRLEN(cal line)) 
EXIT WHEN calindx > VCNT(Ecalparm&é) 
IF STRLENUcattine) <= STRLEN(*® "2" »*) THEN 
ABORT *&calparm& PARAMETER VALUE TO0 LONG® 
IFEND 
calline& eo 
caltine = * *,* # 
WHILEND 
caltrir = SETVAL('*, caitrir) 
IF STRLENCcaitrir) + STRLENC® *.* *) > LINELEN THEN 
ABORT *kcalparm& TRAILER VALUE TOO LONG? 
ORIF STRLEN(catline) + STRLEN(caltrir) > LINELEN THEN 
Ecalline& ee 
"2" gécaltrirs 
\ caltrir = 
\ ELSE 
Ecalline&Ecaltriré 
A caltrir = 9 
\ IFEND 


FP PPP OME AP I 


" End of CALPROC_COMMON * 
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Als2 JO5PARM_=_DEEINE PARAMETERS FOR BATCH. JOBS 


This procedure segment contains the PARM directives which define 
ali the "standard" parameters used in procedures which may run as 
batch jobse This procedure should be INCLUDEd In any SES procedure 
which will handie batch processing. 


JOBPARM. 

“ August 285 1981 * 

\ IF 40DE = HELP THEN 
\ INCLUDE 'JOBPARMHLP® L=UNIQUE{NAME) LPFN#HLPLNAM UN*#PRCUNAMN 
\ IFEND 


*" JOBPARM_COMMON * 


\ PARM KEY = 'jobun'* “ user name * NVALS = 1 STR 
\ PARN KEY = 'jobpw* “ password * NVALS = 1 STR 
\ PARM KEY = *# jobfaiy! “family * NVALS = 1 STR 
\ PARM KEY = *Jobcon* “ charge number * NVALS = 1 STR 
\ PARM KEY = "Jobpn* " project nusber * NVALS = 1 STR 
\ PARM KEY = 'jobtt! = field tength * NVALS = 1 NUM 
\ PARM KEY = *jobti? "time linit * NVALS = 1 NUM 
\ PARM KEY = *Jobpr'! “" job priority * NVALS = 1 NUM 
\ PARM KEY = (*focal*® "batch ‘batchn! tdefer*) NVALS = 0 

\ PARM KEY = (*nodayf"s ‘dayfile's "dft) NVALS = Ooel NAM 


"= \ PARMEND ® 
“ End of JOBPARN_COMMON * 
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Al.s3 1O03HD81_=_ PROCESS _J08_ PARAMETERS 


This procedure sagment will process the parameters for ai hatch 
jobs setting up defaultss etce Detalis of its function are 
described in the procedure segment itsel fe. 


JSOBHDRLI 
* August 28» 1981 * 
" \ PARMEND * 


\ IF MODE = HELP THEN 
\ INCLUDE *JOBHDRIHLP*® LeUNIQUE(NAME) LPFNSHLPLNAM UN=PRCUNAM 
\ IFEND 

“ JOBHDRI_COMMON * 


\ jobun = SETVAL(*USER'’» USER» jobun). 
\ Jobmode = SETKEY(*LOCAL*s jobmodes batch) 


\ IF jobmode /= *LOCAL* THEN 


\ IF NOT DEFCPASSWOR) AND NOT DEFP{ Jobpw) THEN 

\ IF FILECINPUT NOT TT) OR FILECOUTPUT NOT TT) THEN 

\ ABORT "PASSWORD NOT GIVEN® 

\ IFEND © 

\ PARTIAL_PASSWOR = CHARREP(128)44°I ENTER PASSWORD ° oo 


++#CHARREP(CI3DV4+¢CHARREP(O) ow» | 
++CHARREP(O) +¢CHARREP(10)#4+CHARREP(0)4¢+* HHHHHHHH® 

\ PASSWOR = PARTIAL_LPASSWOR .. 
#+#CHARREP(13)44#CHARREP(9)+4CHARREP(O)44+* ITITILII® eo 
++CHARREP (13 34+CHARREP{OD+4CHARREP(O) 4+ ###88BFF® 2n 
++CHARREP(13)++CHARREP(128)¢4°A* 


\ ACCEPT PROMPT PASSWOR TO "OUTPUT" FROM "INPUT® INTO *PaASSwoR' 
\ IFEND 

\ jobpw = SETVAL(notuseds PASSWOR»s Jjobpw) 

\ IF NOT DEFCCHARGE) AND NOT DEFP( jobcn) THEN 

\ IF FILECINPUT NOT TT) OR FILEC OUTPUT NOT TT) THEN 

\ ABORT "CHARGE NUMBER NOT GIVEN® 

\ IFEND 

\ CHARGE = * ENTER CHARGE NUMBER * 4#+¢ CHARREP(128) ++ A? 

\ ACCEPT PRONPT CHARGE TO "OUTPUT® FROM "INPUT® INTO *CHARGE® 
\ IFEND 

\ jobcn = SETVAL({notuseds CHARGEs jobcn) 

\ IF NOT DEFCPROJECT) AND NOT DEFP{( Jobpn) THEN 

\ IF FILECINPUT NOT TY) OR FILECOUTPUT NOT TT) THEN 

\ ABORT *PROJECT NUMBER NOT GIVEN® 
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IFEND 
PROJECT = ® ENTER PROJECT NUMBER © ++ CHARREP(128) ++ "A! 
ACCEPT PROMPT PROJECT TO "QUTPUT*® FROM "INPUT*® INTO *PROJECT® 
IFEND 
Jobpn = SETVAL(notuseds PROJECT» Jobpn) 


” en i a a 


jobfmly = SETVAL('%s FAMILYs jobfmty) 


” 


IF END 


IF DEFP{ jobfi) THEN 

IF: VALS( jobf i)? < 76600(8) THEN 

jobft = 7060018) 

IF END 

jobfi = %sCM* +¢ GCTCVALS( Jobfi)) 
ELSE 

jobfi = 8 
IFEND 


et ot ol al el el ol 


jobt! = "sT ++ DCTISETVAL(2000(B)» defjbtt» jobtt)) 


”” 


IF DEFP( Jobpr) THEN 
jobpr = *, Ppt #¢+ VALS{ jobpr) 
ELSE . 
jobpr = #? 
IFEND 


ne an 


” 


Jobfite = UNIQUE(NAME) 
" End of JOBHDRI_COMMON * 
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Al.4 JOQ3HOR2_=_ PROCESS STARI_QE JOB_EILE 


This procedure segment conditionally generates the code necessary 
to submit the procedure for batch processing. Details of Its 
function are described within the procedure segment itself. 


JOBHDR2 
“ August 285 1981 * 
* \ PARMEND * 


\ IF MODE = HELP THEN 
\ INCLUDE *JOBHDR2ZHLP* L=UNITQUE( NAME) LPFNSHLPLNAM UN=PRCUNAM 
\ IFEND 


* JOBHDR2_COMMON * 


IF STRLEN(PROCNAM) > 7 THEN 
PROC_JOBNAME = SUBSTR(IPROCNAMs 1s 7) 
ELSE 
PROC_LJOBNAME = PROCNAM | 
IFEND 


IF jobmode /= *LOCAL*® THEN 
IF jobsmode = "*BATCHN® THEN 
$SUBNIT(Ejobtl te&sN) 
\ ELSE 
S$SUBMIT(& jobfite&s,B) 
\ IFEND 
SRETURN(E jobftiies) 
REVERT: JO8 S&PROC_JOBNAME& SUBMITTED 
\ IF MODE = TEST THEN 


& jobf ilies 

\ ELSE 

\ ROUT Jjobfile 
\ IFEND 


&PROC_JOBNAMESS Jobflaéjobtig&jobpr&. *** EPROCNAME *** 
\ IF VALSC€ jobfmiy) ++ VALS( jobpw) = ** THEN 

SUSER(E Jobun&) 

\ ORIF VALS(jobfmly) = ** THEN 

SUSER (6 jobunik »& Jobpw6é ) 


\ ELSE 
SUSER (6 Jobun&»& jobpw& 9& jobfmly6é) 
\ IFEND 


\ IF VALS¢ Joben) ## VALS(jobpn) /= ** THEN 
SCHARGE (6 Jjobcn&s& jobpné ) 

\ IFEND 

\ IF jobmode = *DEFER* THEN 


60460270 C2 


Al-7 
CoC = SOFTWARE ENGINEERING SERVICES 
22 MAY 84 
SES Procedure Writer's Guide REV: 2 
A1.0 USEFUL PROCEDURE SEGMENTS 
Ale4 JOBHDR2 = PROCESS START OF J93 FILE 


A A ND EN AID AED A AD ED OD AN ED “ED AND OE AED RD TE DD ND ND FE ND TD. A ED OE SED SED ED AE ED: Ab AD AD AR. AED a ee A EE ED A A A A a Ee ee ee ee 


SCHEAP.. 

\ IF VALS(Jobcn) ++ VALS{ jobpn) 7= ** THEN 
$CHARGE(E Joben&s& Jobpné ) 

‘\ IFEND 

A IF END 

SRFLLINES 

SESMODE NEW. 

\ EXIT WHEN FILE(*SES*»s NOT AS) 
SGETCXSES/UN#=6 SESUNANG) 
SBEGIN( XSES »XSES) 

\ IFEND 


IF DEFPC( Jobfi) THEN 
Jobfi = SUBSTRIVALS(C jobfids 42 STRLENC{ VALS{( Jobfi)) —- 3) 
ORIF DEF (def jbfi) THEN 
jJobfi = OCT(def jbfi) 
ELSE 
jobfi = *70000° 
IFEND 
IF NOT DEF(minjbf!) OR minjbfi < 70000(8) THEN 
ainjbft = 70600(8) 
IFEND | 
IF minjofi > &jobfi&(8) THEN 
jobfi = OCTiminjbfi) 
IFEND 
jobti. = SUBSTRIVALS( jobtl)s 35 STRLEN(VALS( Jobtt)) - 2) 
IF DEFP( Jobpr) THEN 
Jobpr = SUBSTR(VALS( Jobpr)s 329 STRLENC(VALS( jJobpr)) = 2) 
IFEND 


FPP PP AP OPAPP FPP PAP A? 


*" End of JOBHDR2_ COMMON * 
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Ale5 MSGCIRL_>_HANDLE_MSG_4_NOMSG_ PARAMETER 


This procedure segment will process the msg/noasg keyword 
Parameter usad by many of the “standard® SES procedures. Nfetallts of 
its function are described In the procedure segment Itself. 


MSGCTRL 
* August 31,5 1981 * 
» \ PARMEND *® 


\ IF MODE = HELP THEN 
\ INCLUDE *MSGCTRLHLP* LeUNIQUE(NAME) LPFN=HLPLNAM UN=PRCUNAM 
\ IFEND 


" MSGCTRLLCOMMON * 


\ IF DEFK{(noasg) OR (DEFU(jobmode) AND Jobmode /= *LOCAL*®) THEN 
\ sesmsg = ¢*? 

\ ORIF NOT DEFP{msg) AND DEFC(MSGCTRL) THEN 

\ sesasg = MSSCTRL 

\ ELSE 

\ sesmsg = *SESMSG.*! 

\ IFEND 


“" End of MSGCTRL_COMMON * 
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Al.6 REVRLIE =_OVER-WRITE_OR CREATE_PERMANENT_EILE 


This procedure (segment) can be used to over—write or create e 
permanent file (Cif creates the file is defined as a direct access 
privates read-only permanent files If the procedure is used as a 
procedure segment (1.e. INCLUDEd) the variables "rewriti™ and 
“rawrito™ must have been defined by the INCLUDIng procedure. 


REWRITE 
“ August 315 1981 * 


\ IF MODE = HELP THEN 

\ INCLUDE "REWRITEHLP® L=UNIQUE(NAME) LPFN=HLPLNAM UN=PRCUNAM 
\ IFEND 

\ PARN KEY = (814% "rewriti®) NVALS = 1 NAN REQ 
\ PARM KEY = (80's, *rewrito') NVALS = 1 NAM REQ 
\ PAR KEY = (*un*s *rewritu®) NVALS = 1 STR 

\ PARM. KEY = (*status*» *sts*) NVALS = 0 

\ PARM KEY = (*msgts "'nomsg*) NVALS = 0 

\ PARMEND 


" REWRITE_COMMON * 


\ rewritu = SETVAL(USERs rawritus renwritu) 
\ retryrw = UNIQUE(NAME) 

\ denerw = UNIQUE(NAME) 

\ skiprnw = UNIQUE(NAME) 

\ tabell = UNIQUE(NANE) 

\ tabel3 = UNIQUE(NANE) 

\ tabel4 = UNIQUE(NAME) 

\ tQabelS = UNTQUE(NAME) 

\ Yabel6& = UNIQUEC NAME) 

\ tabel? = UNIQUE(NAME) 

\ tabel® = UNIQUE(NAME) 

\ tabel9 = UNIQUE( NAME) 

\ tebellO0 = UNIQUE( NAME) 

\ tabelil = UNIQUE(NAME) 

\ tabell2 = UNIQUE(NANE) 

\ exittag = UNIQUE(NAME) 

\ samerw = ("Srewritié! = *Erewritoé!) 

\ IF (DEFP(status)) OR (DEF(status)) THEN 
\ rufeaild = "SSKIP (Sexitteg&)* 

\ ELSE 

\ rufaiid = "EXIT. *** REWRITE FAILED #**? 
\ IFEND 

\ IF PROCNAM = "REWRITE® THEN 
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" MSGCTRL_COMMON * 


IF DEFK(nomsg) OR (DEF( jobmode) AND Jobmode 7= *LOCAL®) THEN 
sesmsg = *s? 

ORIF NOT DEFP{ msg) AND DEFCMSGCTRL) THEN 
sesmsg = MSGCTRL 

ELSE 
sesmsg = *SESHSG.*! 

IFEND © 


PPP FP 


" End of MSGCTRL_COMMON * 
\ IFEND 


SSET(EF=0) 

S$SETCEFG=0) 

SSET(R1=1) 

ACQUIRE (Srewr Iti&/A) 

\ IF samerw THEN 

\ pfnrw = %§rewr ito&é* 

\ rewrito = UNIQUE (NAME) 

‘ IF PROCNAM = ®REWRITE® THEN 
SIFECFILE{Grewr itiésPM) s&slabell&) 
SESMSG. REWRITE NOT PERFORMED SINCE FILE 
SESMSG.. NAMES EQUAL AND Srewriti& PERMANENT 


SENDIF(C GE labell&) 

\ IFEND 

SIFEC FILE (Srewritigfs NOTePM)sEskiprwh) 
\ ELSE : 

\ pfnrw = "Srewrito&é! 

\ IFEND | 


ACQUIRE (Grewr i to&=Epfnr wG/UN=Er ewr i tué) 


\ IF VALSCrewritud = USER THEN 
SIFE(FILE(Grewr ito&s PM) s6i abel3&) 
ACQUIRE (Srewr i to&=Epfnr wi/ POs M=W) 
SENDIF(C& febel 36) 
SWHILEs TRUE sG&retryrwhe 

SIFEC FILE(S rewr itoG&s eNOTeAS)sG1 abel4é) 
SDEFINE (Erewr i to6 =Epfonr wh/ M2R ) 
SENDIFCE label 46) 

ACQUIRE (Grewr ito&=pfnrwi/AsN=W) 
SIFECFILE(hrewrito&sPM) sGi abel5&) 
SEVICT(S&rewril toG) 

SCOPYEI (CGrewr itisgsGrewr itos »sVERIFY) 
SELSE(Efabel56é) 
SREPLACE (Grewr itiG=Epfnrwé ) 
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SENDIF( El abel 56) 

\ ELSE. 7 

SIFECFILE(SrewritoGsPN) s&label6é) 

ACQUIRE (Chrewr i to&=Epfnr wis POsN=WsUN=Erewr itué ) 
SENDIFCElaebel6&) 

SWHILEs TRUE sGSretryrwi o 

ACQUIRE (Erewr i toS=Gofnr wi/MaWsUN=Erewritudé) 
SIFECFILE(Grewr itois- NOT.AS)s&l abel7&) 
SSET(CEF#1) 

&rwufalids& 

SENDIF(&label 76) 
SIFECFILE(E rewr ito&sPM) sh! abel86é) 
SEVICT(&rewritoé) 

SCOPYEI (Grewr itigs€rewr itoGsVERIFY) 

SELSECE label8&) 
SREPLACE(Grewritié=EpfnrwS&/UN=Erewr itué) 
SENDIF( Elabel8€) 

\ IFEND | 


S$SKIP(Edonerw6 ) 

EXIT. 

SIFEC CEP .NE ODE) AND. (EF NE TKE) AND (EF ONE PPE) s&tabel96) 
Srufalildé ; 

SENDIFC El abel 96) 

SSETCR1=R14+1). 

SIFEC(R1.GT.5) si abeilO&) 

Erwfalidsé 

SENDIFCE label 106) 

SSETC EF =0) 

SREWIND(Grewr itiGs&rewr itoé) 

G&sesmsgé REWRITE FAILED - WAITING TO TRY AGAIN 
S$ROLLOUT(120)* REWRITE FAILED —- WAITING TO TRY AGAIN 
SENDW(Eretr yrw6 ) 


SENDIF( &doner wt) 
\ IF samerw THEN 
SENDIFC&skIi prw&) 
\ IFEND 


\ IF PROCNAM /= *REWRITE® THEN 
SRETURN(Grewrittigsérewr itoé) 

\ ORIF samerw THEN 

SRETURN(Grewr itigsé&rewr ito’) 
ACQUIRE CErewritié&/AsUN=Erewritus&) 
\ ELSE | 

SREWIND (Grewr 1 ti&) 
SIFECFILECErewrito&sPM) »&1ebel126) 
SRETURN(Grewr i to&) 

SENDIF(& label12&) 
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ACQUIRE (Erewr i toi /AsUN=Grewritus) 
\ IFEND 
SENDIF( Sexi ttag&) 


"End of REWRITELCOMMON © 


\ IF samern THEN 
REVERT. END &PROCNAME SGrewritlié 


\ ELSE 
REVERT. END G&PROCNAM& Erewrfitif -> Grewritos 
\ IFEND 
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Bie QRERALING MODES _OF_ THE SES _PRQcessog 


The S@S processor may process a procedure in one of four modes! 


RUN This Is the normal mode. The procedure is processed» 
. presumably generating control statements» and then these 
control! statements are executed. 


TEST In this mode the procedure Is processed in the normal manners 
but the generated control statements are not executed» 
Instead they ara placed on a designated file for possibile 
inspection by the user. This mode is meant as an aid in 
debugging naw procedurese 


HELP This mode Is simiiar to test modes however Instead of 
generating control statementss a procedure set up for HELP 
mode will produce some documantation on its purpose and 
uSag@e 


STATUS This mode is identical to help modes except a procedure set 


up for STATUS mode wil! provide the current status of the 
procedures 


The modes are setectable by the user by means of parameters to 
the 3ES processor3 and the procedure can determine in which cof the 
modes it was called by means of oredefined variables set up by the 
SES prograne These variables are: 


MODE This variable may be compared with the variables RUN» 
TEST» HELP» or STATUS to determine which of the modes is 
in effactj3 for example: 


\ IF MODE = HELP THEN 
" code for HELP mode * 
\ ORIF MODE = TEST THEN 
*" code for TEST mode * 
“\ ORIF MODE = STATUS THEN 
=" code for STATUS asde “ 
\ ELSE 
* code for RUN mode * 
\ IFEND 


PRIMOUT This variabfe contains the name of the PRIMary OUTput 
file. In RUN mode this Is the new control statement file3 
in TEST mode this is the file dasignated by the test mode 
parameter on the S&S call (default is SESTEST)3 and in 
HELP or STATUS mode this is the file designated by the 
heltp or status mode parameter on the SES call (default Is 
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JUTPUT). PRIMOUT Is particularly useful In HELP or STATUS 
mode for directing the descriptive information about the 
procedure to tha file selected by the user on the SéS 
call. This may be accomplished as follows! 


\ IF MODE = HELP THEN 
ws ROUT FA=PRIMOUT 
" descriptive information about called procedure * 
\ ROUTEND PRIMOUT 
\ $Top 
\ IFEND 


Note» in HELP or STATUS modes a PARMEND directive will be 
interpreted as a STOP directives to prevent @ procedure not set up 
for HEL? or STATUS mode from doing strange or undesirable things. 
Blel SELECTING MSODE_OF OPERATION 


As stated aboves the mode of operation for a procedure is 
selected by a parameter to the SES processore 


TEST mode may be selected by one of the keywords: TEST or Te. For 
example: 


sesstest procedure name list lof_paranmeters 


will process procedure “procedure _name”™ in TEST modes and place the 
generated contro! statements on file SESTEST} whereas! 


sesst=my_fileeprocedure_name list _of_parameters 

will process procedures “procedure _nane”™ In TEST modes but places the 
generated control statements on file “my file". 

HELP mode may be ssiected by one of the keywords! HELP or He. For 
examp leas 

sessheip.procedura_name 
causes procedure "procedure name" to be processed in HELP modes = and 
any descriotive information available will be placed on file QUTPUT; 
wheraas % 
sesshemy_info-eprocedure naze 

causes procedure “procedure name" to be processed in HELP modes but 
any descriptive information availabite will be placed on “(file 


"ny _ Info". 
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STATUS mode may be selected by one of the keywordst STATUS or 5S» 
For axample: 


sessstatus-eprocedure nage 
causes procedure “procedure _name™ to be processed in STATUS modes 
and any status information available will be placed on ftie OUTPUT; 
whereas! 
sesss=my_info.eprocedure name 
causas orocedure “procedure _name™ to be processed in STATUS modes 


but any status Information available will be placed on “fite 
"my _i nfo". 


Neate» that when calling a procedure in HELP or STATUS modes a 
list of parameters should pot be given. HELP or STATUS for a group 
of procedures may be obtained by one call to SES» as follows: 


sesshelpeproc_13 proc_23 proc 3 
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C1i.0 ERROR MESSAGES 


This appendix describes the messages produced by the SES 
processor when errors are detected. SES error messages have been 
made as self-explanatory as possible. When an error is detected dy 
SES» a message is printed In the form: 


** £€ CL 110013 EXPECTING “name found integer for parameter I" ON 
COMMAND STATEMENT 


The = at the beginning of the line indicates this is an error 
messagee 

The CL Is an abbreviation for the System Command Language used by 
SES to do syntax processing. 

The number 11001 is an error code assigned to this error 
condition. 

The text which follows tha error code describes the error in 
detalii. Appended to the end of the text is the tine nunber of the 
line being orocessed by SES. In this first examples it Is the 
command statement which is in error. 


After the error messages SES outputs the line it was processing 
when the error was detected», followed by a tine containing an 
up_arrow at the point in the tine where the error was detected, 


SES REWRITE 12123 O=ABC 


Usuaity the error actually occurred on the token just before the 
up_arrowe 


Here area two more typical examples of error messages? 


** 6F 6CL) 6110072 REQUIRED PARAMETER MISSING "I" ON COMMAND 
STATEMENT 
SESe FORMAT | 


** E CL 110113 UNKNOWN KEYWORD "NVLS*® ON LINE # 7 OF PROC SEGMENT 
MYPROC 
PARM KEY = ("group's *g*) NVLS wl NAM 


Other abbreviations used In SES error messages are SE» which 
means the error was detected in the processor itselfs and UTs which 
means the error was detected by a utility routine called by SES. 
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D1.0 SEMIEQSMAL_ SYNTAX DESCRIPTION 


This section gives a semi-formal description of the syntax used 
when writing procedures for and calling the SES. The description Is 
not intended to be rigorous. First we introduce the "“meta-l anguage"™ 
used to describe the syntax3 second the character set used by S#S8 is 
defined} and finally the syntax description itself is given. 


D1l.1 IHE_META_LANGUAGE 


This section desertbes the symbols used in the description of the 
SES syntax. . 


Symbol. Interercetation 
332 This symbol should be read as “is defined to be". 


; This symbol is used to indicate alternativess for 
axamples A ? B means that either A or B is allowed. 


<item> This group of symbo!s denotes that [Item Is to be 
treated as a syntactic unit in relation to 
surrounding meta symbols. 


Citem) This group of symbols denotes that item is optionals 
Je@e zero ofr one occurences of Item are allowed, 


{} tem} This group of symbols denotes that item may be used 
zero or more timese 


Spaces are used in thea syntax description to Improve Its 
readabilitys however they are not part of what's being defined 
uniess otherwise notede 


There are 2a fer Instances where some of the meta symbols 
themselves are part of the syntax definitions and when this occurs 
the meta symbol is undertineds for sexamplet { maans the { character 
and not the meta symbol. When an _ appears alones it means itsalf. 
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D1l.2 CHARACTER SET 
Characters used for NAMES 


Awe Z Bese Z eseveseosee Letters 

O oe 9 aeeecesececcseveceseeces Dacimal Digits 
ecvevesecesssvcecesseseseesee Underline 
eevecesecesesvcscsesecsceseses DOliar Sign 


$ 
# aeecesecesseseseseseseceses POUNAd 
a ee oeesescesesssessseczeee0e Commercial At 


Characters used for INTEGER CONSTANTS 

ae J eceoseevecsencsesvseseees Decimal Digits 

oe F aeef eseceoesecs Hexadecimal Digits 
aeoesevecvscsvesecsceczsecens DPAan Parenthesis 
eeccssecvessescevsesesseccee Close Parenthesis 


ee Oe SS 


Characters used for OPERATORS 


Coors resesecccssesecesesseces Plus Stgn 
ececsevesecesesesssesessens Minus Sign 
evecseesesesesesszsecesseees AStarisk 
cevesccccscccneseoscecccesee Slash (Stant) 

soe eeeessssensessecnsesecee = Qual Sign 
eoccveseseeessensesesceseos Greater Than Sign 
woe cvescceseccevenvescseces Lass Than Sign 


Nva wet + 


Characters used for PUNCTUATION 


Sevres avaseseneesenerevansees Blank (Space) 
Coececsevvcvesececesecseses Comma 

eer cvccveccersevecsecscseccesees pen Perenthesis 
Cores vcscssscccsesvezsececes Close Parenthesis 


eoeoeveeneossnes 0088808888808 8 Period 


= ww om 


Character used for STRING DELIMITER 


’ eeccesecerevecscocccesccecsee Apostrophe (Single Quote) 


Character used for COMMMENT DELIMITER 


” wpoerevsescccccvsecsccszseseees (Double) Quote 
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{Defauit) Character used for SUBSTITUTION DELIMITER 


& 


coe rece ecesevzecszsesevecszecece Ampersand 


(Default) Character used for DIRECTIVE HEADER 


\ 


Note? 


op00200 0009098800808 98 20928 Reverse Stash (Stant) 


Any ASCII character not listed in the above character set 
has no meantng to the SES processor. These characters may 
however be used [In strings» commentss or as data 
characters. 
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D1.3 SYNTAX 
Dle3Zel BASIC DEFINITIONS . 
<upper case letter> t= aid 8i¢t io €: Fi Gi4u 
$ Ti 33 KF 0 tM ENE OS P 
;Q RES 2i Tiuevewet x 
+ ¥ i Zz 
{lower case letter> t:2 a i bt ¢ i die? Fi gtih 
71? Jt ki ' it mintioflp 
$qirist tiuwiviwti x 
sy $ 2 


<letter> tt= <upper casa letter> 
! <lower case ltetter> 


<decimal digit> *:= 013 2 3~«~3 
<hexadecimal digit> t:2 A? Bt ci} OF EVE 
3 ai bici die f 


<digit> 23= <decimal digit> 
: <hexadecinal digit> 


€base> t32 24133143 «5: 6: 7 18 t F 3 19 
+ 113 12 § 13: 14 3 
D1-322 TOKENS 
This section defines the buliding bfocks of Ses syntaxs 
collectively referred to as tokens. The internal token scanner of 


the SES processor Is made avalible to the procedure writer by means 
of the bullt-in function TOKEN. 


<tokean> t8= <name> $$ <number>  } <string> 
{ <detimiter> | <operator> 
<name> 232 <alphabetic char> {<alohabetic char> ! <decimal digit>} 


<alphabetic char> t3= <letter>d> ; : $$ #3: O 


<upper case named tts 
<upper case ftetter> {<unpper case letter> §| <decimal digit>} 


Alf nanes ere limited to thirty-one characters In lengths except 
procedure names and procedure itdentifierss which are limited to ten 
characterse With the exception of <upper case name>ss any name may 
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be specified with elther upper or lower case lettarss but before a 
nene is used ait tetters In it are converted to upper case. For 
instance the names: ABCs abcs aBes and so on» are all equivalente 
{This Includes any of the “spacial” namess such as DOs THENs WHEN» 
etc. In this descriptions howevers these names are always speilted 
out In upper case letters.) 

<variabie name> %%= <name> 

<function named %3%3= <name> 

<parameter name> 322 <name> 

<directive name> 232 <name> 

<assigqgnee> %8= <parameter name> | <variable name> 


€procedure name> 33= <name> 


<procedure identifier> t= <upoer case name> 
<number> 8:32 <decimal digit> {<digit>} €(<base>)] 


<string cheracter> t= ' 
1 <any ASCII character except '> 


€string> 2:2= '{<string character>}!# 


<constant> %32 <string> ! <number> { <name> 


<detimiter> ts= » | € £2) $ © $ « § eele} 
$ <end of tine> 


<operator> %32 <graphic operator> ! <mnemonic operator> 


<graphic operator> is: ** 7 i / § s/f +t bm 8 FF 
>= PF /e $f OF ¢ i s* § 2t 2B 


<mnemonic operator> %¢32 AND | OR $ XOR { NOT 
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D1.363 USE OF SPACES 


Before discussing when and how spaces can be used we willl first 
define the syntax of commants. 


<comment> %t*2= "{<any ASCII character axcept >} 


In almost all cases a comment is treated identically to a single 
blank characters and 2 or more contiguous blank characters (or 
comments) are treated as a single blank charactere Blank characters 
and comments treated in this manner area known as spaces. 


“Spaces may be used between tokens to improve readability and in 
generat may be used to replace conmas when used as arguments values 
or parameter separators. Spaces nust be used to seperate tokens 
when no <delimiter> or <graphic operator> can be used to separate 
theme For example the spaces between the tokens on the following 
line must be present: 


V1 AND V2 
whereas the following tno expressions are equivalent? 


V¥1+ V2 
V1leVv2 


Furthers the following value tist contains 2 values? 
. ( Xs -3 ) 
whereas the next contains only 1 value? 
CX -3 ) 
namely the value of the expression X—-3-6 


Spaces within character strings represent themselvess and 
comments may not be used In front of the \ which occurs at the 
beginning of directive tiness nor following the continuation signal 
at the and of directive or call tines. Lines within proceduras 
which are not directives or continuations of directives or tines 
which ere@ read using the ACCEPT directives are traated as unquoted 
stringss and therefore spaces are significant in theme Whenever a 
fine is read by the SES processors trailing biank characters are 
deleted. Atsos it is legal to precede the \ of a directive line by 
one or more blank characterse 
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D1.0304 SXPRESSIONS 


<exor> st2= <iterm> {<or> <iterm>} 
Cor> t8= OR $ XOR 


éiterm> 23= <ifactor>.{AND <ifactor>} 
<ifactor> s%2 [NOT] <tprimary> 


<lprimary> tt3= <sterm {Xrel oo> <sterm>} 
» (<retlop> ts= = | se i gd ge ft 2 t 2s 


9 


<sterm> 3%= €term> {++ <term>} 


<term> ti= ([<term op>] <factor> (<term op> RESC CORE 
<term op> tt= + a 


“<tactor> 2%: <primary> {<factor op> <primery>} 
<factor op> 2:32 * 3 / $ // 


<primary> %%= <oper and> {** <operand>} 


<oparand> %33 <variable reference> 
<funetion referenced 
( <exprd> ) 
<constant> 

<nul b> 


oe 28 8 SG 


Cnulld w= 
<variable reference> 3%= <variable name> 
<function reference> 3:2 <function name> <arguments> 


<arguments> tts ( C<arg> {9 <arg>}] ) 
§ <null>d 


<arg> tt <name> { <expr> 


must resolve to an tInteger 
must resoive to a string 
must resolve to an integer 


<integer expr> 882 <exprd . 
" 
” 
a if the value Is zeros it 
” 
n 
" 


<string exor> t82 <expr> 
<boolean exprd> t32 <expr> 


Is taken to be FALSE 
1f non—zeros it's taken 
to be TRUE 


23238333 3 24 
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Forelgn text Is primarily used for parameter values which are to 
be in turn used as parameter lists (eege to secondary procedures) 
or simply to prevent the SES processor from evaluating an 
expression. 


The scanning of foreign text is totally different from scanning 
“normal” texte The characteristics of this special scanning are 


- perantheses are “balanced” 
- singte and double quotes are "matched" 
- if not contained within parentheses» singte quotess or 


double quotes, the tokens! commas perlods ellipsis 
(oeled)s and close parenthesis will terminate the scanning 
(and thus the foreign text vaiue). In additions spaces 
which are used to separate namess numberss or strings from 
nanes numbers or strings will terminate scanning; as witd 
an “unenclosed™ open parenthesis which follows a string or 
number (Note»s that an open parenthesis following a name 
doas not terminate scanning - this is because function 
references are allowed in foreign text but the foreign 
text scannar doesn't avaluate what it scans» and thus does 
not know If the name ts indeed the name of a function). 


Foraign text may also ba described as having the general format. 
of an e@xprassions but the expression is not evaluated when scanned 
as foreign texte During scanning comments and blanks not contained 
within singta quotes ere “thrown away" and single blank cheracters 
are Inserted between tokens which would otherwise not be separated. 


The following exampte illustrates some of the idlcsyncracies of 
foralgn taxts 


vilst = S(a be (d ea) §8¥p gqttttr, st? 123(8) (xsl y43)) 9° 
"28 


\ 
\ count = VCNT (viist) ; 
\ value = VALS (vilist»s 3) 3 * 
\ 


stist = GENLIST (vitists index) 7 “4% 
The first tine defines a value tist In the variable viist. Line 
2 sets the varlabie count to the value 6. Line 3 sets the the 
variable vatue to the value: 

c«D E) 
and tinea 4 sats the variable slist to the valuasa: 


AsBsC(D Eds'p qt*rs $%5123(8) (Xs l¥#3)). 
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The next example illustrates how a parameter list may be passed 
as a foreign text parameters’ 


plist = *{ fainfile “columns® cols=1..80 orout )?* 
count = VCNT (plist) 


OPP IP PK 


low = VALS (plists 2s LOV) 
high = VALS (pltists» 2s. HIV) 
slist = GENLIST (ptists index) 


Count Is set to 33 low is set to! 
| cOLs=1 
high is set to 895; and sfist is set to: 
I*INFILE»sCOLS=1..80s0=0UT 


60466270 02 


01-10 
CDC = SOFTWARE ENGINEERING SERVICES 
| 22 MAY 84 
SES Procedure Writer's Guide | : . REV? 2 
D1.0 SEMI-FORMAL SYNTAX DESCRIPTION 
Dle3e6 PARAMETER LISTS 


D1.3e6 PARAMETER LISTS 
<parameter ist> %*3:= €<parameter> (C51 <paramater>d}] 
<parameter> %32 [<parameter name> [—2]] <value list> 
! <parameter name> 
$ <null> 


<value bist> 222 <value>d 
$3 ( C€<value> (€»1] <value>}] ) 


Cvatue> t2= <yaiue sided Cees} <value sided] 


<value sida>d t= <expr> + <foreign taxt> 
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D1e30e7 SES PROCESSOR CALL 


<eseap> t22 [3%$.] <and of Line> 
$33. 


€proc call>d t3= <procedure name> [Es] <parameter !ist> <csep>d 
<€contro!l statemant> t3= <strina>d 


<control statements> *t= <control statement> C<csep>] 
{C€s] (€<control statement>] [<csep>I]} 


<call eatement> 232 <proc call> ? <control statements> 


<SES cali> t= SES Es <parameter tist>] . 
<call elament> ({<call. aelemant>} 


Because of operating system restrictions» a <parameter fist> 
following the SES (processor name) must have expilcit punctuation. 
That ts to says commas must be used to separate perameters (end 
values) and equal signs must be used to separate parameter names 
(keywords) from their value lists. 


Also» the operating system is not well acquainted with lower case 
fetterss so only upper case should be used} howevers NAM/IAF (or 
TELEX) and the SES processor alleviate this problem by converting 
fower case letters to upper case on command and continuation lines. 


When <control statements> are used in a <SES call>s the SES 
processor insures that they are ail “properiy” terminateds feee 
each <contro! statement> string is scanned for a right parenthesis 
or period and if naither of these characters is founds a period witt 
be appended at the end of tha string; if howevars ai right 
parenthesis or period Is founds the string willl be left alone.e NOTE 
that this Is the only validity checking of the <control statement> 
done by the SES processor, 
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D1..3.8 SUBSTITUTION 


<substitute> 2*2:= <parameter name> 3 <varlable name> 
<Cdefault substitution character>d t3= §& 
<alternate substitution character> %%= 
PESO Te SECC EE SS Sit oie ie oer te eee ee ee 2 
NRL SiS Li ai Li dii 
<substitution chard> 32% 
<dafault substitution character> . 
$ <alternate substitution character> 


<substitution> tt= 
substitution char> <substituta> <substitution char> 
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D1.3.9 PROCEDURES 
<procedure> $32 <procedure identifier> {<procedure line>} 
<procedure line> ::= {<procedure line element>} 


<procedure tine elemant> 3:2 <substitution> 
$ <any ASCII character> 


The process Of substitution appliled to a <procsedure line> yleids 
an <objact tine>,. 


Cobject linae> 222 <directive line> 
>; <emoty Jine>d 
§; <data line> 
<defauit directive character> t%= \ 
alternate dlrective cheracter> %%= 
PEPPRPSE ZITO CP Lee a eR g site tors ted gist 2 
SEP PST DULiaiL£giadis 
<directive header> 3:2 
<daefault directive character> 
$ <alternate substitution character> 
C<directive line> 222 <directive header> <directive> 
<empty line>d 222 | 
<data lined %:23 <any fine which Is not "empty" and does 
not begin with a directive header> 


Note: <enpty lined>s may contain comments enclosed in double 
quotes. 
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/D1e30e15. DIRECTIVES 
<directivad 2:2 <assignment> 
i <If white> <boolean expr> (<then dod] 
+; <exit cycie> CWHEN <boolean expr>] 
: <directive name> <parameter fist> 
<assignmant> 332 <assignee> = Cexpr>d 
<if while> t= IF ${ GRIF $ WHILE. 


<then do> 3823. THEN 
§ OD 


exit cycle> t= EXIT !$ CYCLE 
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Dle LINES AND_THEIE CONTINUATION 


It is sometimes necessary to pass more parameters to a procedure 
(or give more parameters to a directive) than will fit on ona tine 
{lines are normally iimited to 80 characters in tengths howevers 
TELEX further limits the command lines to about 70 characters -- for 
reasons known only to TELEX -=- continuation tines entered at tha 
terminal mays howevars he 80 characters tong). To handle this 
problems SES processes continuation tines. 


The effective net result of using continuation tinas is to 
construct an unbroken line of up to 256 characters. 


Continuation may only be used In conjunction with SES directives 
and when calling SES to process a procedure. Continuation is 
signalled on the line which Is to be continueds not the continuation 
iine itself. Note that the <continuation signal> is not considered 
to be part of the !inee The mechanism for doing this Is defined as 
follows: 


Cwhole lined 2t= 
€line starter> <stuf 1> £ <continuation signal> 
€stuf 2> €£ <cscontinuation signal>d 


€stuf n>} ] 


<econtinuation signai> 232 ..} 


<line starterd> 3:32 <directive header> <name> 
$ SES <parameter Jist> 


<stuf i> %t82 <whatever balongs with the Line starter> 
"1 <= | <= yn ® 
The affect of this is as If <whotea tine> had been specified «es: 
<line starter> <stuf 1> {€<stuf i>} 


Note? Syntactic units (tokens) may cross !ine boundarles. 
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£1-.0 ACQUIRE UTILITY 


ACQUIRE is a program that enables easy retrieval Cacquisition) of 
permanent files. 


ACQUIRE combines the functions of the NOS “ATTACH” and "CET" 
control statements. For each file spacified ACQUIRE determines if 
the file Is already local to the Job (unless suppressed by the PO 
perametars see below)» If so it is rawounds if nots then for each 
one of a tist of user names» an ATTACH Is attempted (waitings if 
necessarys until the file is not busy)» and if that fails a GET Is 
tried. Ifs after all thiss the fite Is sti}! not tocals an 
appropriate dayfile message is Issued, 


Uniess thea A (abort) parameter is specifieds ACQUIRE will abort 
only because of contro! statemant format or argument errorss or 
beacause of a permanent file manager (PFM) detected errors and not 
because one (or more) of the specified files could not be found. 


The control statement format for ACQUIRE Is 3 
ACQUIREC If nl=pfnlsifn2=pfn20~eee/0Pls op2seee) 
Ifni Is the (tocal) name of the file once it has been ACQUIRE 
{note that this is the name used In making the “is the file 
already tocai?" test) 


pfni is the permanent fille name for the file (if =pfntl is omitteds 
pfni is assumed to be the same as Ifni) 


opi specify options used for acquiring the filets) 3 
A specifies that if a file Is not founds the program 
should abort 
NA is the opposite of A (and is the default) 
PD specifies Permanant Oniys I.e. thet if a file is 


already locals it will! be returned and then the 
ATTACH and GET will be attempted 


UNeusers specifies a tist of user names to be searched for 
each file (the user names are separated from each 
other by commas) 


M=mode spacifiles the access mode desired for the file 
{READ or R -—— the defaults WRITE or Ws or EXECUTE 
or €) 
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PW=pw specifies the permanent file's password 
PNzpn specifles the packname for the permanent fille 


When ACQUIRE Is attempting an ATTACH or GETs if the file is busy 
or if a permanent file utility is actives the following message will 
be Issued and the request will be ratried 3 

- WAITING FOR PFN=permanent filename UNsuser_name 

When ACQUIRE Is attempting an ATTACH or GET» {tf an error is 
datected by PFM the folloxing message is issued and the program is 
aborted 3 . 

~ ERROR WITH PFN=per manent _ file _name UNzuser_ name 


In both of the above casess the dasignatad message will be 
preceeded by a more specific message generated by PFM,. 
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F100 EXTRACT UTILITY 


EXTRACT Is a program that enables easy retrieval of records from 
permanent file lor tocal) libraries. 


Although the program is dasigned orinarily for use in procedure 
files» it can be very useful on Its own, 


EXTRACT is similar in function to the NOS *GTR"® statement. It 
differs from "GTR" In the following mays? 


o EXTRACT insists that the Jtibrary to be searched has a 
directory (this can be bulit using the NOS utility "LIBEDIT"). 


o The racord types oarameter for EXTRACTs If givens applies to 
all records to be extracteds and if not givens only the names 
of the records are used when searching the Ilbrary. 


0 Each axtracted record Is soptied to Its own focal file by 
EXTRACT,» rather than all to the same file. 


o EXTRACT does not Insist that the library to ba ‘searched be 


focal to tha job when it's calleds but willl ACQUIRE the 
library from a permanent file catalog. 


The control statement format Is? 


EXTRACTOUI fnl=rnlstfn2=rn2s0oe/0plsap2s eee) 


tfni Is the focal fila name givan to the record once it's 
extracted (ifni is REWOUND before and after the extraction 
takes place), 


rni Is the name of the record to be axtracted (if omitteds It Is 
assumed to be the same as Ifni). 

opi These parameters spacify options that control the extraction 
process 2 
A Specifles that If a record is not founds the 

program should abort, : 

NA Is the opposits of A (and is the default). 
Tert Specifies the record type (if givens it applies 


to all records being extracted} if omitteds only 
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the record names are used when searching the 


library). 

L2=libname Specifies the name of the itibrary to be searched 
for the records (3F omitteds “PROCLIA" Is 
assumed). 


LFN=tibifn Specifles the tlocal file name for the tibrary 

(if omitted» the “Iibname" from the L paraeter 
is used). Note that this is the name used to 
make the “Is file tocal?™ test when ACQUIRing 
the tibrary. i: 


UNayn Specifies the user name of the permanent file 
catalog to be searched for “Itlbname” if it's not 
already tocal (if omitteds the current user is 


assumed). 
PW=pw Specifies the library's permanent fiie password. 
PN=pn Specifies the Itbrary's permanant file packnamee 


Valid racord type designators ara documented under the 
description of the "CATALOG" contro! statement in the NOS Reference 
Manuaile . 


In addition to these standard typess there's one more “type 
processed by EXTRACTs which is designated by "TXT". This “type” is 
used to denote “TEXT*® records that» when extracteds are to have 
their first tine (which contains the record's nema) “stripped of f™, 
This is useful ifs for example» one has records containing 
directives for a NOS utilitys in which case the name of such a 
record is in all Ytikelihood an tllegal directive to the utility 
program. 


EXTRACT will abort under any of the following conditions! 
re) fornat or argument error{s) on the control statement 


o the specified library could not be AQUIREd 


o the IJItlbrary file does not have a directory as the last record 
bafore and-of-information 


Notes howevers that EXTRACT won't abort if it does not find = any 
of the reaquested records (only an informative dayfile message is 
issued)s unltass tha Abort parameter was coded on the call. 
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If the ttbrary file was not flocal to the job when EXTRACT was 
calleds it will be RETURNed when EXTRACT terminates normaily} but» 
if the tibrary fille was ltocals EXTRACT wilt! REWIND It prior to 
normal termination. 
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G1.0 SESMSG_UTILITY 
SESMSS is a program which copies the comment field of its call 
fine to a file. The control statemant format is? 
SESNSGs Pile.message 


file is the name of the file to receive the message (if 
omitteds OUTPUT Is assumed) 


message is the message to be written to the file 
The message wlll be written to the file only If the file Is a 
terminal files or if "file" was explicitiy quoted on the call line. 
SESMSSG can be used in procedure files to Inform the user  ebout 
what the procedure is currently doing. It can aiso be used for 


creating files of input directives to utility programs when such 
directives are dependent on execution time considerations. 
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